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FOREWORD 


This report volume is the programmer's manual developed during a study 
of methodologies and systems modeling for optimal assignment of re- 
sources to the national space program and for the evaluation of 
potential new space directions . This study is being performed for 
the National Aeronautics and Space Administration under Contract 
NAS2-5202, and is monitored by Mr. R. E. Slye and Mr. Harold Hornby 
of the Advanced Concepts and Missions Division of the Office of 
Advanced Research and Technology. 

Individuals of Lockheed Missiles & Space Company who contributed to 
this study are L. F. Fox, project leader; C. J. Golden, key technical 
member; and W. T. Lew 
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SUMMARY 

Thi s document is Volume 2 of a two volume series entitled Method- 
ologies for Optimal Resource Allocation to the National Space Program 
and New Space Utilizations. This volume is a programmer's manual 
for the optimal resource allocation and budget smoothing model 
described in Volume 1. 

This volume contains appendixes that provide model input requirements, 
a sample case, flow charts, and a program listing. At the beginning 
of each appendix, descriptive details and technical comments are 
provided to indicate any special instructions applicable to the use 
of that appendix. In addition, the program listing of Appendix D 
includes comment cards that state the purpose of each subroutine in 
the complete program and describe operations performed within that 
subroutine . 

Appendix A, Input Requirements, provides details on the many options 
that adapt the program to the specific needs of the analyst for a 
particular problem. 
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Appendix A 


INPUT REQUIREMENTS 


A.l GENERAL 

A complete glossary of input terms and detailed format requirements are 
included in this appendix. Variable names are listed by order of input in 
corresponding sections of use to make the glossary easier to use than an 
alphabetical listing. Comments are also included which describe either 
external or internal restrictions associated with the variable. 

Figure A-l illustrates the basic data deck layout for this program. Any 
section may be eliminated if there are no associated data. However, either 
a blank card must be inserted in place of the section or the control card 
must reflect no input for that section. If the control card is coded so no 
data are input for some section, then values input for the preceding case are 
automatically supplied. Otherwise, if no data are desired for any one section 
then a blank card must replace that section followed by a blank card which 
designates the end of that section. Stage performance data to be used in the 
stage -matching screen may be eliminated entirely, including the final blank 
card, if the stage-matching screen is not to be used. If this screen is used, 
then the stage cards must be ordered so that all stages in Class 1 precede those 
in Class 2, which precede those in Class 3> which precede those in Class k. 
Stages not included in the matching screen follow those in the above classifi- 
cations. If the matching screen is not used, the order of cards within each 
section is unimportant. 

Constraint and budget level cards are input to the SMOOTH subroutine of 
integrated program. The last data card input to this budget section is 
followed by a card containing only an asterisk in the first column. 
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REUSABLE 

BLANK 



Figure A-l Data Deck Layout. 
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Then the control card for the next set of data appears unless there are 
no more data cases to follow. In this latter case, a blank card follows 
the asterisk card in order to terminate the run under normal circumstances. 


A. 2 INPUT FORM AND DEFINITIONS 


Card Variable 

Column Name Format Description and Comments 


Control Card 


1-3 LP 


b - 6 NOPT 


7-9 MOS 


10-12 NSOL 


13 Code for logic printout 

If LP > 2 Print decision numbers 
for each vehicle 

If LP > 1 Print logic associated 
~ with algorithm 

If LP = 0 No logic output 

13 Code for mission/vehicle compat- 

ibility screen 

1 - AV vs. payload weight + 

availability + a priori 
assignment 

2 - Code 1 plus use stage-matching 

screen 

3 - All criteria 

13 Method of solution desired 

MOS = 0 Optimize assignment and smooth 
resulting budget 

MOS = 1 Input assignment and 

smooth resulting- budget 

MOS = 2 Optimize assignment and 
output associated costs 

MOS = 3 Input assignment and 

print out associated costs 

13 Number of solutions to be output in 

ascending order of total program 
cost 
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Card 

Column 

Variable 

Name 

Format 

Description and Comments 

13 - 15 

MS0L 

13 

MSOL = 1 bypasses time-saving 
feature in algorithm 

16 - 18 

MITR 

13 

Maximum number of allowed iterations 
between SMOOTH AND ASSIGN 

19 - 21 

ELY 

13 

Last two digits of initial calendar 
launch year of mission model 

22 - 2b 

MYRS 

13 

Mission model duration in years 

25 - 29 

TREF 

F5.1 

Last 2 digits of calendar year for 
SMOOTH 

1 — I 

1 

O 

N“\ 

GUESS 

F12.2 

Upper bound for total launch vehicle 


program (saves storage space if real- 
istic value). If GUESS = 0.0, then 
GUESS is assigned a value 1.0 E15 


42 - 

• 44 

GRO 

F3-1 

Annual economic growth factor, e. g. , 
7$ inflation/year; GRO = 7 . 

45 - 

49 

SLO 

F5.1 

Annual Sustaining Costs less than 
SLO are left out of the basic algor- 
ithm and treated later in determining 
the optimal assignment. MSOL = 0 
option must be specified for implemen- 
tation 

50 - 

53 

CORR 

F4 .2 

Correlation between development and oper- 
ating cost growth factors (e.g., 0 . 3 ) 

67 - 

68 

IP 

12 

Code for pad input* 

69 - 

70 

IG 

12 

Code for stage input* 

71 - 

72 

IFM 

12 

Code for shared cost group input* 

73 - 

74 

II 

12 

Code for integration cost input* 

75 - 

76 

IM 

12 

Code for mission input* 

77 - 

78 

ISD 

12 

Code for special program data* 

79 - 

80 

IV 

12 

Code for vehicle input* 


* If > 0, new input for this case 
If < 0, use data from previous case 
A-4 


Card 

Columns 


Variable 

Name 


Format 


Description and Comments 


Stage Information (input only if IG > 0) I = 1, NSTG < 50 






1-2 

KODS(l) 

12 

Reference number of stage on card I 

4 - 7 

STG(l) 

A4 

Name of stage on card I 

3 - if 

sr(i,j) 

3F6.3 

Recurring cost for first unit of 




stage on card I 

l4 - 19 

J = 1,3 


J = 1 Hardware 

20 - 25 



J = 2 ETR launch support 




J = 3 WTR launch support 

26 - 30~ 

ELC(l,j) 

3F5.3 

Recurring cost learning curve percent 




for stage on card I in decimal form 




(e.g., -95)t 

31 - 35 

J = 1,3 


J = 1 Hardware 

36 - 4o 



J = 2 ETR launch support 




J = 3 WTR luanch support 

44 - 49 

SNR(l) 

F 6.3 

Development cost of stage on card I 

50 - 55 

STS(l) 

F 6.3 

Sustaining cost of stage on card I 

59 - 61 

LSA(l) 

13 

Last year stage on card I is available*-*- 

62 - 64 

NBY(l) 

13 

Batching duration in years for stage 




recurring cost 

65 - 67 "" 

NFS(l, j) 

4i3 

KODEF of the shared cost groups (up 




to 4) to which stage belongs 

68 - 70 

J = 1,4 



71 - 73 




74 - 76 





t If percent is 100, then input zero for more efficient program operation 
* 1 corresponds to year IRY 

+ If available through mission model, any number > MYRS may be input. If 
number < MYRS is input then this termination date is maintained through 
all iterations. 


A-5 



Card 

Column 

Variable 

Name 

Format 

78 


mode(i,j) 

311 

79 

80 


J = 1,3 



Second Stage Card 


Description and Comments 

Code to indicate type of input for 
recurring cost of stage on card I* 

J = 1 Hardware 
J = 2 ETR launch support 
J = 3 WTR launch support 


5 - 9 


SUSLS(I,J) 2F5.0 


10 - l4 


J = 1,2 


Sustaining cost at launch facility for 
Stage I, not to be duplicated at each 
pad. 

J = 1 ETR 
J = 2 WTR 


15-17 NU(l) 13 


18 

- 23 

UPP(l) 

f6,2 

24 

- 29 

UPPXX 

F6.1 

30 

- 32 

PXX 

F3.2 

33 

- 38 

RPLO(l) 

F6.0 


39 - 40 YDS(l) F2.0 


Number of reusable units in initial 
investment of component I 

NU = 0 unit is expendable 

NU > 0 estimate used by program directly 

NU < -2 estimate used by program for 

first iteration, then subroutine 
REUSE calculates estimate for NU 

Unit purchase price 

PXX$ tail such that using the lognormal 
distribution, prob. (UPP(l) > UPPXX) = PXX 
(e.g., PXX = .05) 

Return payload weight in lbs for this 
component. ## (Vehicle return payload = 
orbiter return payload) 

Duration in years over which function 
distributes development cost for stage 
on card I. (Leave blank if SNR(l) = 0 . 
Input necessary if SNR ^ 0) 


* If = 0, learning curve type input 
If - 0, jump type input 


** Any value >1.0 may be input to indicate payload return capability 
besides crew. 
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Card 

Column 


Variable 

Name 


Format 


Description and Comments 


41 

- b2 

IST(l) 

12 

Last 2 digits of calendar start date 

bl 




for Stage Development Program (necessary 
if SNR or STS/0) 

- kk 

nsfx(nsdc*) 

12 

Duration in years < 12 for any 


miscellaneous (fixed or development) 
program associated with stage on 
card I (e.g., Run out costs). (Stand- 
ard Development costs are distributed 
by a Beta function - any other develop- 
ment distribution may be input under 
this special category. ) 


^5 

- ^9" 

SRXX(J) 

3F5-1 XX$ tail such that 

50 

- 5^ 

J = 1 3 


prob. (SR(j ) > SRXX(j)) = XX(l) 



for J = 1,3 

55 

- 59_ 




60 

- 62 

XX(1) 

F3.2 

Percent tail above in decimal form 
(e.g., .05) 

63 

- 68 

SNRXX 

F6.1 

) XX$ tail such that 

69 

- 71 

XX(2) 

F3.2] 

j prob. (SNR(I) > SNRXX) = XX(2) 

72 

- 77 

STSXX 

F6.l) 

! XX$ tail such that 

78 

- 80 

xx(3) 

F3.2j 

' prob. (STS(l) > STSXX) = XX(3) 


If MODE(l,j) f 0 for some J, require following Jump Type Input Card for Each 
such J. 


5 

- lb 

SRJ(LX,1) 

F10.3 

Total recurring cost for up to POJ 
number of stages 

15 

- 2b 

srj(lx, 2) 

F10. 3 

Slope of line defining total recurring 
cost for over POJ number of stages 

25 

- 3b 

SRJ(LX,3) 

F10.3 

Y-intercept of line defining total 
recurring cost for over POJ number 
of stages 

35 

- bb 

poj(lx) 

F10.3 

Number of stages at which function 
defining total recurring cost changes 
slope 


* NSDC = Number of special development costs < 50 
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Card 

Column 


Variable 

Name 


Format 


Description and Commments 


^5 - 5^ SRJXX F10. 3 ) PXX$ tail such that 

55-57 PXX F3.2 ( pr ° b * (SRJ(LX, 1 ) > SRJXX) = PXX 



Card 

Column 

Variable 

Name 

Format 

Description and Comments 

28 - 31 

ydf(i) 

f4.i 

Duration in years of Development 
Program cost distribution (6 Function). 
(Leave blank if FMNR(l) = 0. ) 

32 - 34 

jst(i) 

13 

Last 2 digits of calendar start date 
for group Development Program - nec- 
essary if FMNR or FMSUS f 0 

35 - 37 

NSFX(NSDC) 

13 

Duration in years for any miscell- 
aneous fixed or development program 
distribution associated with group I. 
(Distribution input on following card. ) 

38 - kf 

FMSLS(l,j) 

2F10.0 Sustaining cost at launch site for 

group I not to be duplicated at each 
pad. 

48 - 57 

J = 1,2 


J = 1 ETR 




J = 2 WTR 

58 - 64 

65 - 67 

FMNRXX 

XX(1) 

17. o] 
F3-2j 

1 XX$ tail such that 

f prob. (FMNR(l) > FMNRXX) = XX(l) 

68 - 74 
75 - 77 

FMSSXX 
XX( 2) 

rj . o ] 

F3.2j 

1 tail such that 

* prob. (FMSUS (i) > FMSSXX) = XX(2) 

If (NSFX(NSDC) ^ 0) read 

following card. 

1 - 3 

nrfx(nsdc) 

13 

Start date for special Development 
cost associated with group I. 
(Referenced to JST(l)). 

4 - 8 " 
9 - 13 
l4 - 18 

rxd(j,nsdc) 

J = 1,12 

12F5.2 Special Development cost to be 

spent in calendar year 

1900 + JST(l) + NRFX(NSDC) - 2 + J 
(input distribution) 

59 - 63_ 
64 - 69 

RXDXX 

F6.li 

1 PXX$ tail such that 

-0 

0 

1 

—5 

ro 

PXX 

F3.2] 

f v 

prob. ( ^ RXD(J,NSDC) > RXDXX) = PXX 




j=l 
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Card 

Column 


Variable 

Name 


Format 


Description and Comments 


Last Group card must be followed by a blank card. 


Integration Cost Cards (input only if II > 0) I = 1, NCI < 30 


3 

- 5 

nfml(i) 

13 

6 

- 8 

NFMU(l) 

13 

9 

- 18 

RINT(I) 

F10.0 

19 

- 28 

HjCINT(i) 

F10.0 

29 

- 38 

DINT ( I ) 

F10.0 

39 

- 48 

SINT(l) 

F10.0 

49 

- 52 

XDI(I) 

f4. 1 

53 

- 55 

KST(l) 

13 


KODEF of shared cost group which is 
lower member of integration pair I 

KODEF of shared cost group which is 
upper member of integration pair I 

Recurring cost for first unit of 
integration I 

Recurring cost learning curve per- 
cent for integration I 

Development cost of integration I 

Sustaining cost of integration I 

Development duration in years for 
(3 distribution (Leave blank if 
DINT(l) = 0. ) 

Last 2 digits of calendar start 
date for integration development 
program - input necessary if DINT 
or SINT 0 


56 - 58 NSFX(NSDC) 


13 


Duration in years for any miscell- 
aneous fixed or development program 
associated with integration I. 
(Distribution input on following 
card). 


59 - 68] SINTLS(l,j) 
69 - T8J J = 1,2 


2F10. 0 Sustaining cost at launch facility 

for integration I not to be duplicated 
at each pad. 

J = 1 ETR 

J = 2 WTR 


Second_Integration Card 

1-10 RINTXX 

H-13 XX(l) 


F10.0 

F3.2 


XX(l)$ tail such that 

prob. (RINT(l) > RINTXX) = XX(l) 
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Card 

Variable 



Column 

Name 

Format 

Description and Comments 

lb 

- 23 

DINTXX 

FlO.o] 

| XX(2)$ tail such that 

2b 

- 26 

XX(2) 

F3. 2 1 

| prob. (DINT(l) > DINTXX) = XX(2) 

27 

- 36 

SINTXX 

FlO.o] 

1 XX(3)$ tail such that 

37 

- 39 

xx(3) 

F3.2j 

j prob. (SINT(l) > SINTXX) = XX(3) 

IF NSFX(NSDC) / 0 read 

following card. 

1 

- 3 

nrfx(nsdc) 

13 

Start date for Special Development 
cost associated with integration I. 
(Referenced to KST(l)) 


- 8~ 

rxd(j,nsdc) 

12F5.2 Special Development cost to be spent 

9 

- 13 

J = 1,12 


in calendar year 

1900 + kst(i) + nrfx(nsdc) - 2 + J 

l4 

- 18 

• 



(input distribution) 

59 

• 

- 63, 




64 

- 69 

RXDXX 

F6.l] 

[ PXX$ tail such that 

70 

- 72 

PXX 

F3. 2 j 

1 12 





prob( ^ RXD(J,NSDC) > RXDXX) = PXX 


j=l 


Last Integration card must be followed by a blank card. 

Pad Cards (input only if IP > 0) I = 1, NP < 30 

1-4 KODEP(l) 1 4 Number of pad complex on card I 

7-10 PAD(l) a 4 Name of complex on card I 

11 - 15 NPERFD(l) F5.0 Maximum number of launches/year/pad 

possible at complex I 

2nd - 6th cards needed for each pad complex (stage cost data, 2/card) (j = 1,10) 

3-41 NPSTG(l,j) 12 KODE corresponding to Jth stage costs 

43 _ 44J of complex I 


A-ll 



Card 

Variable 



Column 

Name 

Format 

Description and Comments 

5 

- 9 

PSTGD(l, J, 1) 

F5.0 

_th , 

J stage development cost of first 

45 

" 4 9j 



pad in complex I 

10 

- 12" 

YDPS(l, j) 

F3.0 

Development duration in years for 

50 

- 52_ 



P distribution 

13 

- 15" 

MST(I,J) 

13 

Last 2 digits of calendar start 

53 

- 55_ 



date of PSTGD 

16 

- 2(5" 

PSTGS(l, J,l) 

F5.0 

_th , ... 

J stage sustaining cost of 

56 

- 6o_ 



first pad in complex I 

21 

- 25“ 

PSTGD(l,J,2) 

F5.0 

t h 

J stage development cost of 

61 

- 65_ 



second pad in complex I 

26 

- 30“ 

PSTGS(l, J, 2) 

F5.0 

J th stage sustaining cost of 

66 

- 70_ 



second pad in complex I 

31 

- 35" 

PSTGD(I,J,3) 

F5.0 

_th , 

J stage development cost of 

71 

- 75_ 



third pad in complex I 

36 

- 4o~ 

PSTGS(l, J, 3) 

F5-0 

T th ... 

J stage sustaining cost of 

7 6 

- 8o_ 



third pad in complex I 


7th - 9th cards needed for each pad complex (family cost data, 2/card)(j = 1,5) 


3 

- 4 

NPFAM(I,J) 

12 

KODEF corresponding to family 

43 

- 44 



costs of complex I 

5 

- 9 ' 

EFAMD(l, J,l) 

F5.0 

J family development cost of first 

45 

- U 9_ 



pad in complex I 

10 

- 12~ 

ydpf(i, j) 

F3.0 

Development duration in years 

50 

- 52_ 



for p distribution 

13 

- 15~ 

LST(I,J) 

13 

Last 2 digits of calendar start 

53 

- 55_ 



date of PFAMD 

16 

- 20~ 

PFAMS(l, J,l) 

F5.0 

J 4 ' 1 family sustaining cost of 

56 

- 6o_ 



first pad in complex I 


A-12 



Mission Data Card - (input only if IM > 0) I = 1, NMIS < 50 


1 

- 2 

kodem(i) 

12 

Reference number of mission on 
card I 

3 

- 8 

name(i) 

A 6 

Name of mission on card I 

9 

- 12 

PB(I) 

F^.2 

Priority of mission on card I 

15 

- 16 

nsyr(i) 

12 

Number of sustaining years 
required for SUS(l) after last 
launch year 
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Card 

Column 

Variable 

Name 

Format 

17 - 18 

NYRSFX ( I ) 

12 

19 - 25 

VLR(l) 

F7.0 

26 - 28 

rplm(i) 

F3.0 

29 - 31 

tamf(i) 

F3-0 

32 - 38 

wpr(i) 

F7.0 

0 

- 4 " 

1 

o^ 

NTRIP(l) 

12 

4i - 80 

MISN(I,J) 

2012 


J = 1,MYRS 



Description and Comments 

Duration in years of any fixed 
or special development cost 
distribution associated with 
mission KODEM(l) 

Characteristic velocity required 
in fps to accomplish mission on 
card I 

Return payload weight in lbs 
required by mission on card I* 

Number of days orbiter required 
for mission completion (only 
required if NU < 0 for some 
reusable stage). 

Payload weight in lbs required 
for mission on card I 

Maximum number of launches 
allowed to carry WPR(l) lbs into 
orbit. NTRIP(l) =0 is same as 1. 

Number of launches for mission 
on card I in calendar year 
J + 1900 + ILY - 1 with WPR 
payload at each launch 


Second Mission Card 


3 

- 12 

PLR(l) 

F10.2 

13 

- 22 

SUS(l) 

F10.2 

23 

- 32 

C(I) 

F10.2 

33 

- 37 

YDH,(l) 

15 

38 

- 42 

RDIST(I,L) 

4F5.3 

43 

- 47 

L = 1,4 


48 

- 52 



53 

- 57 




Payload recurring cost for 
mission KODEM(l). 

Payload sustaining cost 

Payload development cost 

Duration in years over which 
development cost is to be 
distributed by Beta Function 

Input recurring cost distribution 
for FLR in decimal form (e.g. , 

RDIST(I,1) = -05) 


w Currently, any value >1.0 indicates that mission I is to be performed 
only by vehicles whose upper stage has RPDO > 1.0 . 
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Card 

Column 

Variable 

Name 

Format 

Description and Comments 

58 - 

67 

ELMD(l) 

F10.2 

Maximum diameter of payload for 
mission on card I 

1 

00 

\o 

69 

NFLS(l) 

12 

Code for payload stabilization 
requirement 

0 - No requirement 

1 - Must be spin stabilized 

2 - Must not be spin stabilized 

70 - 

71 

MR(l) 

12 

Code for man-rating requirement 
for mission on card I 

0 - No requirement 

1 - Must be man-rated 

72 - 

73 

ltr(i) 

12 

Code for launch site of mission 

1 - ETR 

2 - WTR 

74 - 

75 

nrr(i) 

12 

Number of restarts required for 
mission 

76 - 

77 

is(i) 

12 

Last 2 digits of calendar start 
year for development cost ELD(l) 

78 - 

80 

IVEHEA(I) 

13 

A priori vehicle assignment for 
mission on card I 

If no vehicle assigned - 0 input 
KODEV of vehicle input otherwise 


Third 

Mission 

Card 



1 

- 10 

ELRXX 

F10. 0 1 

1 XX(l)$ tail such that 

11 

- 13 

XX(1) 

F3.2j 

prob(FLR(l) > PLRXX) = XX(l) 

lb 

- 23 

cxx 

F10. 0) 

1 Same for C(l) 

2b 

- 26 

XX(2) 

F3*2 j 

1 

27 

- 36 

susxx 

FlO.o) 

1 Same for SUS(l) 

37 

- 39 

XX(3) 

F3.2J 

1 
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Card 

Column 

Variable 

Name 

Format 

Description and Comments 

If NYRSFX(l) f 0 read following card. 


1 - 3 

NSTRFX(l) 

13 

Start date for special development 
cost associated with mission KODEM(l) 
referenced to IS(l) 

4 - 8~ 

9 - 13 
l4 - 18 

RFIXD(j,l) 
J = 1, 12 

12F5.2 

Special Development cost to be spent 
in calendar year 

1900 + IS(l) + NSTRFX(l) - 2 + J 
(input distribution) 

59 - 63_ 




64 - 69 

RXDXX 

f 6 .i) 

PXX$ tail such that 

70 - 72 

PXX 

F3.2) 

12 


Prob( Y RFIXD(J,I) > RXDXX) = PXX 

j=l 


Last mission card must be followed by a blank card. 


Special Program Data Card (No launch associated with proeram^ - Tnpit only if 
ISD >0, 1=1, NSPR < 6 

1 - 3 

KODESP(l) 

13 

Code number for Special Program (must 
be larger than 100) 

4 - 9 

NAME(l) 

A 6 

Name of Special Program on card I 

10 - 19 

C(I) 

F10.2 

Development cost associated with 
program (distributed by f3 Function) 

j - 

OJ 

1 

O 

CM 

YDFL(l) 

15 

Duration in years of Development 
program 

MO 

CM 

1 

LTN 

CM 

IS(I) 

12 

Last 2 digits of start year for 
development cost C(l) 

27 - 36 

SUS(l) 

F10.2 

Annual sustaining cost associated 
with program 

37 - 38 

nyrsst(i) 

12 

Duration in years of sustaining 
program 
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Card 

Variable 




Column 

Name 

Format 

Description and Comments 

39 

- 4o 

NYRSFX(l) 

12 


Duration in years of any fixed 
cost which does not have a f3 
distribution 



4i 

- 50 

CXX 

F10.2| 

| 

XX(l)$ tail such that 

51 

- 53 

XX(1) 

F3.2) 

1 

Prob ( C ( I ) > CXX) = XX(1) 

54 

- 63 

susxx 

F10. 2 ) 

1 

XX(2)$ tail such that 

64 

- 66 

XX(2) 

F3* 2 j 

1 

Prob ( SUS ( I ) > SUSXX) = XX(2) 

If FYRSFX(l) ^ 0 read following card. 



1 

- 3 

NSTKFX(l) 

13 


Start date for fixed cost 
referenced to IS(l) 

4 

- 8" 

RFIXD(J,l) 

12F5.2 

Fixed Cost to be spent in 


- 13 

J = 1,12 



calendar year 

9 



1900 + IS(I) + NSTKFX(l) - 2 + J 

l4 

- 18 

• 





59 

• 

- 6 3_ 





64 

- 69 

RXDXX 

f6.i] 

1 

P XX$ tail such that 

70 

- 72 

PXX 

F3.2] 

I 

12 






Prob( Y, RFIXD(J,I) > RXDXX) = PXX 






j=l 

Last 

Special Program Data 

card must be followed by a blank card. 

Vehicle Data Card (input only if IV > 0) J 

=1, NV < 60 

1 

- 8 

veh(i,j) 

4l2 


th . . . 

KODS of stage m I position. 






where 1=1 corresponds to 



I = 1,4 



booster, for vehicle on card J 

9 

- 21 

B1(J) 

E13.6 


, Payload vs. characteristic velocity 
1 curve constants for performance 

22 

- 34 

B2(J) 

E13.6 

\ 

evaluation of vehicle on card J. 
PL = EXP(B1 - B2*V - B3/(B4 - v)) 

35 

- 47 

B3(J) 

E13.6 


and V = Excess Velocity = Total 
Characteristic Velocity-Circular 

48 

- 60 

b4(j) 

E13.6 


Velocity at 100 n.m. 
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Card 

Variable 



Column 

Name 

Format 

Description and Comments 

o 

00 

i 

ON 

C- 

KODEV(J) 

12 

Reference number of vehicle on card J 


2nd Card needed for each vehicle. 


b - 5 

NVS(J) 

12 

6 - 7 

MRV(J) 

12 

8 - 9 

NRP(J) 

12 

10 - 12 

NPAD(1,J) 

13 

13 - 15 

NPAD(2,J) 

13 

l 6 - 18 

NYP(l,j) 

13 

19 - 21 

NYP(2,J) 

13 

8o 

JKEY 

II 


A-l8 


Code for stabilization of vehicle 
on card J 

1 - Is Spin stabilized 

2 - Is not spin stabilized 

Code for man-rating of vehicle on 
card J 

0 - Is not man-rated 

1 - Is man-rated 

Number of restarts possible for 
vehicle on card J 

KODEP of pad complex at ETR from 
which vehicle J can be launched 

KODEP of pad complex at WTR from 
which vehicle J can be launched 

"fch 

1st year J vehicle can be flown 
from ETR 

"t h 

1st year J vehicle can be flown 
from WTR 

Code for recurring cost distribution 
for vehicle on card J 

JKEY = 0 - standard distribution 
is used 

1st year of distribution = .05 
Recurring cost 

2nd year of distribution = .20 
Recurring cost 

3rd year of distribution = . 50 
Recurring cost 

(Continued on following page) 


• • ! 


Card 

Column 


Variable 

Name 


Format 


Description and Comments 


4th year of distribution = .25 
Recurring cost = Launch year 
generating this recurring cost 

JKEY = 1 - Distribution is to 
be input on following card 


Optional 3rd card for each vehicle (input only if JKEY ^ 0). 


4 - 8 
9 - 13 
14 - 18 

19 - 23 


ALPl(l, J ) 
I = 1,4 


4f 5.2 Input Recurring cost distribution 

for vehicle on card J in year I 
where 1=4 corresponds to year 
of launch 


Last vehicle card must be followed by blank card. 


Stage Performance Cards (input only if NOPT = 2 on control card) I < NSTG < 4o 


1 

- 4 

kode(i) 

l4 

Reference number of stage on 
card I (used to check order of 
cards) 

5 

- 9 

nst(i) 

15 

Classification of stage on card I 

10 

- 19 

thrt(i) 

F10.0 

Stage thrust 

20 

- 29 

diam(i) 

F10.0 

Stage diameter 

30 

- 39 

tsl(i) 

F10.0 

Stage sea-level thrust 

40 

- 49 

lent(i) 

F10.0 

Interstage length required to 
clear engines 

50 

- 59 

WTFU(l) 

F10.0 

Stage fuel weight 

6o 

- 69 

wtin(i) 

F10.0 

Stage total inert weight 

70 

- 79 

isp(i) 

F10.0 

Stage vacuum specific impulse 


Last performance card must be followed by a blank card. Eliminate blank 
card if NOPT ^ 2. 


Reusable Stage Cards (One card required for each stage I with input negative 

NU(l)). (No special order required) 


1-2 


KODE(l) 


12 


Stage code number of corresponding 
reusable stage 


Card Variable 

Column Name Format Description and Comments 


5-6 NOB(I) 12 

7-12 XLT(l) F6.1 

13 - 18 TAT(l) F6.1 

19 - 2b ELCH(I) F6.3 


Code to identify type of stage 
NOB = Is BOOSTER 
NOB = 2: ORBITER 

Amortization Lifetime (number of 
launches per unit before replace 
ment) 

Land to launch turn-around-time 
for first refurbishment (days) 

Learning curve percent for 
TAT in decimal form calculated 
from reference year (if zero is 
input, then ELCT is assumed to 
be 100) 


Last Reusable Stage card must be followed by blank card. (Blank card 
required even if no data are input in this section. ) 


Budget Smoothing Data is input in subroutine SMOTHS using a CALL INPUT 
statement. The following variables may be input at this time. 


Variable 

Name 


TITLE (I) 


LEVEL(J) 

ISTRT 


Description and Comments 


Output page HEADING - if no input blanks are output. 

4o characters are allocated for storage, e.g. , 

TITLE = ’LUNAR OPTION* 

YEARLY DESIRED FUNDING LEVEL (20 year maximum), e.g., 

LEVEL = 300., 375 * } 18 x 300. (in dollars of applicable year 

FIRST YEAR of smoothing interval - referenced to 
TREF = 1 


IFIN 

MAXITR 

NCSTR 

nprog(k) 


Last year of smoothing interval - referenced to TREF 

Maximum number of iterations allowed per case in 
SMOTHS subroutine 

Number of constraints on mission programs < 90 

The reference number (K0DEM or K0DESP) of the 
mission being constrained 
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Variable 

Name 


Description and Comments 


KFROG(K) The reference number (KODEM or KODESP) of the 

constraining prog-ram or mission 

KODE(k) Code number for type of constraint < 11 

CS(K) Constant associated with each constraint 

FIXED(l) Yearly total fixed overhead costs (i = 1,20) (in refer- 

ence year dollars) If no input, is set to zero 

FMAXf Constants associated with FL0T2 - if no input they 

PMIN\ are set to 5000. and 1500. respectively 

ACCL Code for use of acceleration option - if no input 

it is set = TRUE 

EXT Code for use of extension option - if no input it 

is set = TRUE. If FALSE is input, these options 
will not be used. 


The next card contains an * in the first column. 

The next card is either a new control card for the next case of data or a 
blank card so that the run is terminated under normal circumstances. 
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Appendix B 
SAMPLE CASE 


B.l DESCRIPTION 

The output from a sample case is presented in this Appendix. Data are synthesized in 
order to test logical sequences. No significance should be attached to the values used. 
The listing includes a module map so that storage requirements are defined for each 
subroutine and common block. The program first prints out input data for easy refer- 
ence and to provide a check on punched data. If probabilistic data are input, then two 
lines of output are provided for each item; the first line represents the most likely 
values input while the subsequent line represents the expected values calculated by 
the program. 

Each section of output is described in detail: 

(1) STAGE COST DATA include stage title or identifying name, recurring cost 
of first unit and learning curve (LC) factor for hardware, ETR, and WTR 
recurring cost, respectively. If any stage has jump — discontinuous form of 
recurring cost for any of the above three types — then the following line 
provides relevant information. Development and sustaining cost for each 
stage are listed along with years of availability referenced to the initial 
launch year. Each stage may belong to at most four "shared cost groups," 
whose reference numbers are listed on the output. Each group number is 
referenced to the "Shared Cost Data" number which follow this section. 
"Batch Fact" defines the number of years over which vehicles may be con- 
sidered as produced in one period of time for learning curve purposes. A 
a reusable stage is designated as such and its expected unit purchase price 
is given with the input most likely value in parenthesis. Any miscellaneous 
costs associated with a stage are output as fixed costs. The annual 
expenditure is provided over a 12 year period. 
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(2) SHARED COST DATA include data on each shared cost group which was 
referenced in (1) above. These groups may be families such as the Titan 
f am ily or they may be subsystems, such as a guidance system shared by 
several stages. Total development cost for any vehicle equals the sum of 

the development costs for each of its component stages plus any development 

t' 

costs for any shared groups associated with these stages plus any integra- 
tion development costs required. As mentioned above, the first line 
represents the most likely value while the second line (if appropriate) repre- 
sents the expected value calculated by the program. 

(3) INTEGRATION COST DATA are always between * 'families." If a specific 
stage-to- stage integration cost is desired, each stage must be put in a 
shared cost group by itself. Thus, many shared cost groups in (2) above 
will have no associated non-recurring costs. These groups will, however, 
be integrated with other shared cost groups, and this combination does have 
an integration non-recurring cost. 

(4) PAD COST DATA would normally be the section which follows . For simpli- 
city, no pad costs were included with this test run, but this section would 
list the complex reference number, identifying name and location, e.g. 

TITE represents Titan ETR complex, and the next entry would show the 
maximum number of launches per year per pad at this complex. All possible 
combinations of pad-related costs are listed with their respective values for 
each pad. 

(5) MISSION MODEL DATA include mission internal reference number, identi- 
fying name, total AV required, payload required in lb, priority value, 
launch site identification, (1 = ETR, 2 = WTR), and launch rate schedule 
by year. 

The following page lists all most likely costs (modal) associated with each 
mission and then lists all the corresponding calculated expected costs. Pay- 
load recurring costs (PLR) are distributed over a 4-year period by the follow- 
ing four fractions, where the last year is the year of launch. Development 
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costs (DEV) are included along with the development period and starting 
year. Sustaining costs (SUST) and total miscellaneous fixed costs (FIXED) 
are included for future reference . 

(6) SPECIAL PROGRAMS are listed by internal reference number and name. 
Development cost (DEV), start year and duration are included along with 
sustaining costs (SUST). Fixed costs, if any are input, are output by year. 
Both modal (input) and expected (calculated) values are output. 

(7) INPUT DATA TOTALS include total number of each input item along with 
other pertinent information from control card. 

(8) QUANTITIES BRANCHED UPON lists every non-zero, non-recurring cost or 
"budget option" which the algorithm will consider in the optimization process 
along with its availability status. The reference number listed is used in 
the optional logic output described in (11). 

(9) VEHIC LE /MISSION CAPABILITY is a matrix of final vehicle-to-mission 
compatibility presenting the results of subroutines CAPBLI and AVAILI. 

Each vehicle is listed by stage components and internal reference number. 
The vehicle /mission number on the top line represents the mission-year 
combination number (NM) while the mission number only is given on the 
following line at the top of the matrix. 

(10) CHANGED QUANTITIES BRANCHED UPON is a section included only if 
reusable stages appear in the input. The number of units purchased is 
indicated and multiplied by the unit purchase price in order to determine 
the estimated investment cost for each reusable stage for that iteration. 

This investment cost is added to the actual development cost for use by 
the algorithm. In general, these "budget option" quantities are the only 
ones from the list in (8) that will vary from iteration to iteration. 

(11) BRANCH AND BOUND NODE VALUES present optional information which 
enables the user to check the internal logic of the algorithm. Each node is 
given a reference number which it keeps until its associated total bound 
exceeds the value of a known solution. (**** represents a very large number, 
denoting an unfeasible combination) . The node number from which branching 
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is taking place is provided in the second column. The last new node to be 
generated at each branch is given the reference number of its parent node 
for continuity. The reference number of the cost item under consideration 
[see (8)] is listed in the next column along with the appropriate sustaining 
year for that node. (0 represents no development or sustaining for that cost 
item). The recurring, non-recurring, and total lower bounds are then 
provided so that each branch in the decision tree is represented. 

When a final solution has been found, it is designated a POSSIBLE SOLUTION 
If it is identically the same as a previous possible solution, this fact is 
printed out and the newly found solution is discarded. Otherwise, if some 
pad costs and small sustaining costs were ignored by the algorithm, these 
extra costs are computed and added to the lower bound of the corresponding 
node. The values of these costs are printed out below the node information 
for the possible solution under consideration. When the optimal solution has 
been found — the least cost possible solution already investigated — this fact 
is designated on the following page. 

(12) SOLUTION NUMBER 1 — the optimal launch vehicle for each mission-year 
combination is printed out as well as an array of mission information for 
easy reference. The "Number of Launches" represents the launch rate by 
year multiplied by the priority factor and the number of trips required by 
the associated vehicle to satisfy the mission payload requirements. 

Following the first solution is a description of the uncertainties associated 

with the total cost of this assignment. The lognormal parameters /lx and 
o 

a are output along with the lognormal densities at selected points . 

The 50 percent uncertainty interval, with lower bound taken as 
most likely value ( v mode ), is also output. 

(13) Sections (11) and (12) are repeated until NSOL = 3 assignments have been 
found. The second and third assignments have added information output 
since the probability that those assignments cost more than preceding 
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assignments is output for various levels of correlation. The proper level 
of correlation is determined by the analyst since he can determine how 
much increase in technology is required by each program. Two programs 
requiring approximately the same technological advance will have a high 
degree of correlation. 

(14) THE OPTIMUM SOLUTION HAS BEEN DETERMINED signifies the success- 
ful completion of the algorithm. If no significantly different second and third 
best solutions can be found, this fact will be output here and the program 
will continue using the optimal solution found. 

(15) Following the above selection of an optimal assignment, any input to sub- 
routine SMOOTH is automatically output as it appears on the data cards. 

The program constraints are then output — first the input constraints , then 
the calculated constraints. "Average" recurring cost data for each of the 
vehicles in the optimum assignment are calculated in VEHRC and output on 
the following page . Each vehicle is assigned a key number which is used 
internally and output with the associated stage component names defining 
the vehicle. 

(16) The breakdown of costs by program and type, and by program and year on 

the following pages, is essentially the same as for the original budget smooth- 
ing model. For example, Program 2 (PN = Program Number) has NAME 
MAPLSU for Manned Planetary Support. The development start date is 
1984. The program has no development (DEVL) costs and hence no develop- 
ment duration (YRS). Sustaining costs (SUST) start in year 1984 ( = START 
+ SS - 1.). They are spent for 0 (SD) years. Recurring costs start in year 
1987 ( = START + RS - 1. ) and last for 4 (RD) years. The distribution 
follows on the same line (e.g. , $133 M in 1987, $ 405 M in 1988, $^38 m in 
1989, and I^IGM in 1990 ). On the following line fixed miscellaneous costs 
are similarly listed if any have been input for that program [e.g., fixed 
costs start in year 1971 (= START + RS - 1.) and last for 5 years (RD) for 

A 

Program Number 13) . The distribution follows on the same line of output. 
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More complete data on these entries are provided in reference 1. Programs 
associated with missions are output first. For the selected sample case 
Programs 1 through 12 are mission related. Program 13 is a miscellaneous 
program having no associated launches, and the remaining programs are de- 
velopment or sustaining costs associated with launch vehicles. (There are 
only two such programs for this test case.) These last programs are identi- 
fied by the decision number used in the ASSIGN algorithm. A list of decision 
numbers, their associated values, and types of expenditure has been output 
previously for reference. 

(17) The section "Total Program Costs and Launch Vehicle Schedule" is output 
as in the original smoothing program with the following modification. 

Instead of printing the launch vehicle key name under its associated program 
and year of launch, the key number already output with each corresponding 
vehicle name is substituted for simplicity. Total program costs are output 
by year as they would actually be spent. 

(18) A plot follows this tabulated data showing actual yearly totals (*) and 
desired yearly level of spending (0). The modal value is plotted as an M 
while the upper value of the 50 percent uncertainty interval is designated 
by a U. Fixed costs are plotted by an F. Normally under options MOS = 0 
or 1, the smoothed data are then output using the same formats. Only 
data input to SMOOTH directly from ASSIGN and the final smoothed data 
are output. Intermediate output is supressed. For this sample run, 

MOS = 2 was specified so no smoothing was performed. If no new case 
data are input, then the normal termination of the run is designated by 
END OF DATA - JOB COMPLETE. 

Any discrepancies in input data are noted and printed out as a warning to the user. 

The flow diagrams in Appendix C define all non-normal exits from the algorithm in 
CHOOZS. Each non-normal termination of a case is denoted by a printout of the 
qualifying reason. The program then reads in new case data, if available, and 
proceeds as normal. 
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The sample case included in this Appendix required 0.52minutes on the 360/67 
computer available at Ames Research Center, Moffett Field, California. Estimating 
run time is quite difficult for a new set of data since the number of solutions "close to" 
the optimum solution determines how large the decision tree will be and, as a conse- 
quence, how much computer time must be expended. As a general rule, the computer 
time increases linearly with the number of missions in the mission model and expon- 
entially with the number of decision items determined by the stage, shared group, 
integration, and pad cost input. 

B. 2 SAMPLE CASE PRINTOUT 

The computer printout for the sample case discussed above follows: 
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STOP A 


//(■•0X02BB JliB (T3582, TEST, 1,11, 'GOLDEN 1 
ILF236I ALLOC. FUR MUX02BB LKED 
ILF2 37I SVSLIB ON ICO 
ILF237I SYSLMUD ON 333 


IFF2371 OfcCKS ON 336 
I b F 2 3 7 I ON 330 

I c F2 37 I ON 330 

I fc F2 37 I SYSPRINT ON 0A1 
I F F 2 3 7 I SYSUT1 ON 335 
ILF2371 STSL1N ON 051 
IEF2H5I SYS1.PURTLI8 
ILF285I VOL SER NOS= SYSLB1. 

1 b F 2 85 I SYS71312.T161 623.RF000.M0X02BB.G05ET 
I b F 2 8 S I VOL SER NOS= 555555. 

1FF285I SYS1.USERL1B 
I : . F 2 8 5 1 VOL SER NOS= USER01. 

IEF235I SYS1.IJSERL 182 
I b F 2 8 5 t VOL SLR IIUS- 222222. 

[F.F283I SYS1 .OSERL IB3 
P.F2851 VOL SER NUS= 222222. 

IF ."2 851 SYS 71312. T 16) 7j23.RFOOO.MOX02HB. R00006B9 

ILF285I VOL SER NOS= 

I '■ F 285 I SYS71312.T161 623.RF000.MOX02BB.R 0000690 

I r. F 2 8 5 1 VOL SFR NOS= USFR02. 

I> I 2 LSI SYS 71 312. I 161 623. HF000.MOX02BB. R 0000691 

I 1 2851 VOL SFR NOS p 

II I 2 161 AlLOL. FOR MOX02BB GO 
It. F,i7l PGM-t.OD ON 333 
1EF23M FT05F001 ON 063 


I F F 2 3 7 I FI06F001 ON OA 1 
IF.F2.57I GUSET ON 333 

1 1 F28 5 I SYS71312.T1 6 1623 -RF000.H0X02BB.G0SET 
IEF285I VOL SEP. NOS= 555555. 

IFF2851 SYS71312.T 161623.RF000.H0X02BB.R0000693 

IEF285I VOL SER NOS= 

It F 2 8 5 I SYS71 31 2. T1 6 162 3 . R FOOD . M0X02BB .R000069 2 
IFF2851 VOL SER NOS=» 

I E F 2 8 5 1 SYS71312.T16 1623.RF000.H0X02BB.G0SET 

IEF2':5t VOL SER NOS* 555555. 


KEPT 

PASSED 

KEPT 

KEPT 

KEPT 

DELCTEO 

DELETEO 

DELETED 


PASSED 

DELETED 

DELETED 

DELETED 


F83-LEVEL LINKAGE FOITOR OPTIONS SPECIFIED L I ST.OVLY ,KAP 
VARIABLE UPTIONS USED - SIZE"! 1 26976*26576) 
ISwOOCO INCLUDE O£CKSt«OX02MN,KOXOlPK! 

Itvsrrc INCLUDE DECKS (K0X02N I .M0X02NR ) 

!c'.-''AO ENTRY PAIN 

IS.0-.00 UVEKLAV A 

IcODDD INCLUDE 0FCKSIMOXO2AS1 

IcMDCDO OVERLAY 8 

INCLUDE DECK S I M0X020S ) 

’E.C'IVO uvfckLAV C 

Icu.VOO INCLUDE DECK SI MOXOZEX ) 

ie. i.073 UVt PLAY B 

l-.-i'OC'O INCLUDE DECKS! Y0X02C I I 

I D.tJO OVERLAY C 

1E«-:0S9. INCLUDE DECK S t MOXOSNI .MOXOZPI .M0X02KE 1 

IL'.c 00 OVERLAY f» 


DEFAULT OPTIONIS) useo 


1 fc .5 .) \> 00 

I 

It. 8 .003 

Itwuooo 

! rVOOOO 
I fc* 0003 
I»:Wl)000 
l fc * CvOO 

ie-^opo 

T C- W .Ml DO 
IE-0000 
I-.-COOO 
1 c* 00 CO 
I c- 0000 
lcWOOOO 


INCLf'I-fc DECKS! M0XO2DN»MOX02MHf MQX02PN *M0X02AL ) 

V.VtKLAY K 

INCLUDE uECKS<MnxO2SM,HOXO2RSfMOX02VC) 

OVERLAY 8 

INCLUDE PECKS! MQX02CH ) 

UVfcSLAY C 

INCLUDE PECKS! M0X02LD »MOX020I I 
HVfc.RL AY C * 

INCLUDE DECKS««0X02CM) 

OVERLAY C 

INCLUDE PECKS! M0X02PC ) 

OVERLAY A 

INCLUDE DECKS ( M0X02SS»M0X02RV»M0X02CRt AL1NPT »M0X01UP »MQX02AT ) 

INCLUDE DECKS! M0X02TC I 

INCLUDE DECKS! MQX02SH,K0X02LC) 


MODULE MAP 


CONTROL 

section 



ENTRY 






NAME 

ORIGIN 

length 

SEG. NO. 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

$S6GTAS 

00 

AC 

1 







main 

50 

156A 

1 







PACK 

1508 

6 8 

1 

UNPACK 

1A2A 

ITEM 

1A6E 


* 

ndtri 

1AC0 

2A6 

1 









HUT R 

1D60 

IOC 

1 

IHCSLU G • 

IF* 8 

1BA 

1 

IHCSSCN * 

2108 

1E0 

1 

IHCSfcXP * 

22F-0 

ieo 

1 

I HC F RX P I * 

2*A8 

141 

1 

ihcprxpr* 

25F0 

183 

1 


A10G10 

1F48 

ALOG 

IF 64 

COS 

2108 

SIN 

2124 

EXP 

22F8 



FRXP1 = 

24A8 










NAME 

ORIGIN 

length 

SEG. NO. 

NAME 

LOCATION 





FRXPR- 

25F0 

IHCECQMh* 

2770 

F3i 

1 

IBCOM- 

2778 

IMCCCMH2* 

36B0 

5*5 

1 

SEOOASD 

3910 

JHCFMAX I * 

3»F0 

C9 

1 

MAXO 

3BF8 

IhCSSORT* 

3CC0 

1*9 

1 

SORT 

3CC8 

imcfcvth* 

3 E 1 8 

1175 

1 

ADC ON® 

3E18 





FCVIOUTP 

**2E 

imcefnth* 

*F90 

512 

1 

AR ITH- 

*F90 

F 1 OCS“ • 

54A8 

160 

1 

SETB99 

553* 

I.mCEFIOS* 

5608 

me 

1 

FIOCSBEP 

560E 

IHCEP.RM * 

0723 

5AC 

1 

errmon 

6728 

ihcuopt * 

6CC*3 

398 

1 



ihcetrch* 

7070. 

28E 

1 

IHCTRCH 

7070 

I HcUATBL* 

7300 

638 

1 



SAVE* 

7938 

FCO 

1 



SAV JMP 

8-F3 

l*f'C 

1 



SAVSAR 

9014 8 

A5C 

1 



SAV5- 1 

A«18 

FO 

1 



SAV 2 

8760 

FEO 

1 



SAVS 

C7C0 

9E* 

1 



SAV<» 

niA8 

3U<8 

1 



S VAC A V 

10330 

B*8 

. 1 



. SAVA L L 

1067 8 

3A1C 

1 



VAR -CE 

1*898 

ADC 

l 



SCRACH 

16373 

6A60 

1 



SENTAB 

16008 

2* 

1 



ASSIGN ' 

16E00 

80 E 

2 



TEMP 

1C660 

*110 

2 



tENTAB 

207F0 

5* 

2 




NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

TFOIOCS- 

283* 

INT5WTCH 

3696 



KINO 

3C06 

AMAXO 

3C2* 

AMINO 

3C3A 

FCVAOUTP 

FCVEOUTP 

3EC2 • 
*930 

FCVLOUTP 

FCVCOUTP 

3F52 

*0*A 

FCVZOUTP 

INT6SWCM 

*0 A 2 
*E33 


AOJSWTCH 52FC 

RESB99 55*E 

IHCERRE 67*0 

ERRTRA 7070 
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OAT INS 

20048 

3E00 

3 

SfcNTAB 

24718 

18 

3 


MEAN 

24730 

23A 

4 

CAP8L1 

2084 8 

840 

5 

SfcNTAB 

21388 

18 

5 


NAME 

ORIGIN 

length 

5EG. NO. 

NAME 

LOCATION 

NAME . 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

MISMTJ 

2 1 3A0 

466 

6 









PERrl 

21603 

4BC 

6 









HATE t 

21CC8 

A68 

6 









DeCSNI 

20848 

11FE 

7 









MATCH I 

2 1 A <• 8 

1984 

7 









PF. \ NT I 

23300 

1 08 A 

7 









AVAJCl 

244$ 0 

7A8 

. 7 









STC.4M1 

20348 

2314 

8 









RSU5E 

22860 

403 

8 









VEHRC 

23038 

302 

6 










CHOOZS 

20348 

2280 

9 

SEN i Ad 

22AC6 

3C 

9 


L9CN01 

22B08 ' 

A50 

10 









OUT PT I 

23688 

see 

10 









CMPARE 

22808 

2B70 

11 









PDCSTI 

22808 

18C2 

12 









SMOOTH 

1BEC0 

2 2 AC 

13 









RcVtUS 

1E030 

672 

13 









CCNSTK 

1E728 

4F2 

13 









A L 1 *• ° T 

1EC20 

61 A 

13 









CM plot 

* 1F740 

F68 

13 

INPUT 

1EC20 











PL0T1 ■ 

1F772 

PL0T2 

IF98E 

PL0T3 

1F852 

PL0T4 

1FCA2 

ArRMT 

206A8 

40 

13 

GMIT 

IFF06 

PITAPE 

1FF3C 





TCCiTS 

206E8 

1A46 

13 









SHIFTS 

22130 

7C2 

13 
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LISTC 

SAVR.T 


228F8 

23080 


764 

FAO 


13 

13 


ENTRY ADDRESS 50 

TOTAL LENGTH 25678 

»*c«HA1N DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET 


stage COST DATA 


TITLE 

RECURRING LC RECURRING LC RECURRING LC DEVELOPMENT 

I HAROWARE ) (ETR ONLY) 1HTRUNLY) 

SUSTAINING 

available 

FROM TO 

SHARED 

COST GROUPS BATCH PACT 

S-IB 

s-i a 

38.00 

35.36 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 0.0 

0.0 0.0 

95.00 

97.90 

90.00 

92.98 

5 

5 

20 

20 

0 

0 

0 

0- 

0 

0 

0 

0 

l 

1 

,S-!C 

S-IC 

55.00 

57.08 

0.0 

0.0 

0.0 

o.p 

0.0 

0.0 

0.0 0.0 

0.0 0.0 

110.00 

113.65 

157.00 

152.03 

5 

4 

20 

20 

14 

14 

17 

17 

0 

0 

0 

0 

1 

1 

S-I I 
S-Il 

t :x=d 

HXeO 

51. CO 
52.31 
COSTS * 

COSTS • 

0.0 

0.0 

65.00 

67.16 

0.0 

0.0 

65.00 

67.16 

0.0 

0.0 

0.0 

0.0 

0.0 0.0 

0.0 0.0 

0.0 0.0 

0.0 0.0 

0.0 

0.0 

0.0 

0.0 

90.00 

92.98 

0.0 

0.0 

4 

4 

0.0 

0.0 

20 

20 

15 

15 

0.0 

0.0 

0 

0 

0 

0 

0 

0 

.0 

.0 

0 

0 

0.0 

0.0 

1 

i 

0.0 

0.0 

S-5B 

S-5B 

21.00 

21.65 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 0.0 

0.0 0.0 

60.00 

61.99 

65.00 

67.51 

4 

4 

20 

20 

15 

15 

0 

0 

0 

0 

0 

0 

1 

1 

LS5& 

LS58 

15.30 

19.03 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

(KO 0.0 

0.0 0.0 

55.00 

60.58 

15.00 

19.90 

w 

5 

5 

20 

20 

13 

13 

0 

0 

0 

0 

0 

0 

1 

l 

1200 

1200 

27.50 

30.65 

0.0 

0.0 

0.0 

0.0 

0.0 • 
0.0 

0.0 0.0 

0.0 0.0 

0.0 

0.0 

0.0 

0.0 

1 

1 

20 

20 

' \l 

18 

18 

20 

20 

0 

0 

1 

1 

1 56 5 
1565 

26.50 

35.55 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 0.0 
0.0 9.0 

220.00 

295.59 

20.00 

26.79 

5 

5 

20 

20 

11 

11 

0 

0 

0 

0 

0 

0 

1 

1 

R2SS 

R253 

3.39 
6. 98 

0.0 

0.0 

0.0 

o.o. 

0.0 

0.0 

0.0 0.0 

0.0 0.0 

3199.00 

6560.76 

255.70 

502.06 

3 

8 

20 

20 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

REUSABLE STAGE 

UNIT 

purchase price* 

357.18 1 169.50) 










R250 

R250 

2.31 

5.77 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

•0.0 0.0 

0.0 0.0 

3739.00 

7667.82 

178.20 

365.04 

8 

8 

20 

20 

21‘ 

21 

0 

0 

0 

0 

0 

0 

1 

1 

REUS 

ABLE 'STAGE 

UNIT 

PURCHASE PRICE- 

238.27 ( 116.10) 










R1.5 
R 1 • 5 

6.60 

13.62 

0.0 

0.0 

0.0 

0.0 

0.0 
■ 0.0 

0.0 0.0 

0.0 0.0 

5578.00 

9388.52 

280.00 

575.39 

8 

8 

20 

20 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 


REUSABLE STAGE UNIT PURCHASE PRICE. 286*76 ( 1*0.001 
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F'iXiO COSTS = 
MXtO COSTS *» 

10.00 

13.02 

10.00 

13.02 

o o 
o o 

o o 

0 0.0 

o c.o 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


o o 
o o 


o o 

© o 

SSTO 2.42 

SSTO A. 76 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

3000.00 

5864.57 

284.60 

556.72 

8 

8 

20 

20 


0 

0 

0 * 
0 

0 

0 

REUSABLE STAGE 

UNIT 

PURCHASE PRICE- 

281.33 

( 144.00 ) 









S/C 2.00 

S/C 2.60 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1900.00 

2473.46 

110.00 

143.20 

5 

5 

20 

20 


0 

0 

0 

0 

0 

0 

REUSABLE STAGE 

UNIT 

PURCHASE price- 

Ul. 03' 

( 05.00) 



. 






CSM AO. GO 

CSM AX. 33 

0.0 ‘ 
0.0 

Cf.O 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

150.00 

154.97 

65.00 

08.08 

5 

5 

20 

20 


0 

0 

0 

0 

0 

0 


0.0 

0.0 


0.0 


0.0 


1 

1 


1 

1 


1 

1 


SHAREO COST DATA 


NO. 

title 

DEVELOPMENT 

SUSTAINING 

14 

satn 

0.0 

no. eo 

14 

SATN - 

0.0 

113.65 

17 

SIV9 

0.0 

0.0 

11 

156 

1.00 

2.00 

11 

156 

1.24 

2.20 

12 

120 

18.00 

23.00 

12 

120 

20.22 

26.00 

13 

1$<*B 

0.0 

0.0 

18 

1205 

47.00 

0.0 

18 

1205 

52.96 

. 0.0 

20 

1200 

60.00 

0.0 

20 

1200 

67.40 

0.0 


21 R250 


0.0 0*0 


INTfcGPAT I UN COST OATA 


L 1 it* c H 
GPljlJP 


upper 

GROUP 


RECURRING LC DEVELOPMENT SUSTAINING 


156 
1 56 

LS4b 

L$4b 

0,10 

0.12 

0.0 

0.0 

80.00 

107.17 

1.00 
1 .24 

1*0 

1*0 

L SAB 
LS4B 

0.0 

0.0 

0.0 

0.0 

80.00 
107. 17 

0.0 

0.0 

156 

156 

K25U 

R25CJ 

0.0 

0.0 

0.0 

0.0 

50.00 

85.99 

0.0 

0.0 
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MISSION! MODEL 


MISSION 

VELOCITY 

PAYLOAD 

PRIORITY TR 

71 72 73 


1 KANPLA 

2 Q 0C0 • 

25000. 

1.00 

1 

0 

0 

0 

2 M .- 

2«fOC. 

25000. 

1.00 

1 

0 

0 

0 

3 M.’NLi’N 

2^200. 

25070. 

l.CO 

1 

0 

0 

0 

4 LUSU 

29000. 

25000. 

1.00 

1 ■ 

0 

0 

0 

5 S»!./.Sr. 

2 VO 00. 

25000. 

1.00 

1 

0 

0 

0 

6 S > . u 

2 Vi/OO . 

25f*vO. 

1.00 

1 

0 

0 

0 

7 

29000. 

2 5000. 

1.00 

1 

0 

0 

0 

0 M-iSUP 

2 , ;oao. 

25000. 

1.00 

1 

0 

0 

0 

V w - 

2 90 00. 

25000. 

1.00 

1 

0 

0 

0 

1 0 Mr US UP 

2v'JG0. 

25000. 

1 .00 

1 

0 

0 

0 

11 Mr:>J 

2 VO GO • 

25000. 

1.00 

1 

0 

0 

0 

12 MiCSuP 

26000. 

25000. 

1.00 

1 

0 

0 

0 


LAUNCH 

SCHEDULE 














74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

66 

87 

88 

69 

9 Q 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

8 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

15 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

8 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1? 

12 

12 

12 

12 

0 

0 

0 

0 

0 

0* 

0 

0 

0 

8 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 * 

0 

0 

0 

0 

c 

0 

12 

12 

12 

12 

12 

12 

12 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

C 

10 

10 

10 

1.; 

lo 

0 

0 

0 

0 

0 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

6 

8 

6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

6 

0 

0 

0' 

0 

0 

0 

0 

o 

0 

0 


1 

MAN PL A 

plr- 

90. 

,0 

0 1ST 

BY. 

15* 

.35, 

.25, 

1 

manpla 

PLR- 

153. 

.0 

01 ST 

BY. 

,15. 

• 35, 

.25, 

2 

KAPLSU 

PLR- 

50. 

.0 

DIST 

BY. 

.10, 

.30, 

.30, 

2 

MAP.SU 

PlR- 

85. 

,0 

DIST 

BY, 

10, 

.30, 

.30, 

3 

MANLL’N 

PLR- 

90. 

.0 

CIST 

BY, 

,15, 

.35, 

.25, 

3 

M AN. UN 

PLR- 

153, 

.0 

01 ST 

BY. 

.15, 

.35, 

.25, 

4 

MALUSU 

PLR- 

50. 

.0 

01 ST 

BY. 

.10, 

.30, 

.30, 

4 

MAlUSU 

PLR = 

05, 


DIST 

BY, 

.10, 

.30, 

.30, 

5 

SP8AS6 

PLR- 

80, 

.0 

0 I ST 

BY, 

.15, 

.35, 

.25, 

5 

SYBASE 

PLR* 

104 

.1 

OIST 

3Y 

.15, 

.35, 

.25, 

6 

spfasu 

plr* 

45 

.0 

DIST 

BY 

.10, 

.30, 

.30, 

6 

sp^asu 

plr- 

76, 

.5 

OIST 

8Y. 

.10, 

.30, 

.30, 

7 

Ms’HJ 

PLR- 

85 

.0 

OIST 

BY. 

.15, 

.35, 

.25, 

7 

MtUU 

PLR- 

161 

.4 

OIST 

BY 

.15, 

.35, 

.25, 

8 

KS^SUP 

PLR- 

40 

.0 

OIST 

BY 

.10, 

.30, 

.30*, 

6 

ME. IS UP 

PLR- 

52 

. 1 

DIST 

BY 

.10, 

• 30, 

.30, 

9 

Mg 00 

plr- 

85 

.0 

OIST 

BY 

.15, 

.35, 

.25, 

9 

MB CO 

PLR* 

161 

.4 

DIST 

BY 

.15, 

.35, 

.25, 

10 

McOSUP 

PLR* 

40 

.0 

OIST 

BY 

.10, 

.30, 

.30, 

10 

MECSUP 

PLR- 

. 52 

.1 

OIST 

BY 

.10, 

.30, 

.30, 

11 

ME no 

plr- 

85 

.0 

OIST 

BY 

.15, 

• 35, 

.25, 

11 

Kb 00 

plr- 

161 

.4 

OIST 

BY 

.15, 

.35, 

.25, 

12 

MEOSUP 

PLR" 

40 

• 0 

OIST 

BY 

.10, 

• 30, 

.30, 

12 

MfcOSUP 

PLR- 

52 

.1 

OIST 

BY 

.10, 

.30, 

.iO» 


• 25, 

DEV- 

17500.0 

FOR 

6 

YRS 

STARTING 

.25, 

DEV- 

29748.0 

FOR 

6 

YRS 

STARTING 

.30, 

DEV- 

0.0 

FOR 

0 

YRS 

starting 

.30, 

DEV- 

o.o 

FOR 

0 

YRS 

STARTING 

.25, 

DEV- 

17500.0 

FOR 

6 

YRS 

starting 

.25, 

DEV- 

29748.0 

FOR 

6 

YRS 

STARTING 

• 30, 

DEV- 

0.0 

FOR 

0 

YRS 

STARTING 

.30, 

DEV- 

0.0 

FOR 

0 

YRS. 

STARTING 

.25, ' 

DEV* 

10000.0 

FOR 

7 

YRS 

STARTING 

.25, 

OEV- 

13018.2 

FOR 

7 

YRS 

STARTING 

.30, 

DEV- 

0.0 

FOR 

0 

YRS 

STARTING 

.30, 

DEV- 

0.0 

FOR 

0 

YRS 

START ING 

• 25, 

DEV* 

3690.0 

FOR 

7 

YRS 

STARTING 

.25, 

DEV- 

4803 . t 

FOR 

7 

YRS 

STARTING 

.30, 

OEV- 

0.0 

FOR 

0 

YRS 

STARTING 

.30, 

OEV- 

0.0 

FOR , 

0 

YRS 

STARTING 

.25, 

OEV- 

3690.0 

FOR 

7 

YRS 

STARTING 

.25, 

OEV* 

4803.7 

FOR 

7 

YRS 

STARTING 

.30, 

DEV* 

c.o 

FOR 

0 

YRS 

STARTING 

.3o; 

DEV- 

0.0 

FOR 

0 

YRS 

STARTING 

.25, 

DEV- 

3690.0 

FOR 

7 

YRS 

STARTING 

.25, 

DEV- 

4803.7 

FOR 

7 

YRS 

STARTING 

• 30, 

DEV- 

0.0 

FOR ■ 

0 

YRS 

STARTING 

.30, 

DEV- 

• 0.0 

FOR 

0 

YRS 

STARTING 


1984 

SUST- 

800. 0 

FIXED- . 

0.0 

1984 

SUST- 

1359.9 

FIXED*. 

0.6 

1984 

SUST- 

0.0 

F I XFO- 

10.0 

1984 

SUST- 

0.0 

FIXED* 

11.0 

1980 

SUST- 

800.0 

FIXE"- 

0.0 

1980 

SUST- 

1359.9 

FIXED- 

0.0 

1 9B0 

SUST- 

0.0 

FlXFO- 

0.0 

1980 

SUST- 

0.0 

FIXEO- 

0.0 

1977 

SUST- 

550.0 

FIXFn- 

0.0 

1977 

SUST- 

716.0 

FIXFno 

0.0 

1977 

SUST = 

0.0 

FIXED- 

0.0 

1977 

SUST- 

' 0.0 

FIXED- 

0.0 

1979 

SUST- 

217.3 

FI *F0* 

0.0 

1979 

SUST- 

282.9 

FIXEO- 

0.0 

1979 

SUST- 

0.0 

FIXED- 

0.0 

1979 • 

SUST- 

0.0 

FIXED- 

0.0 

1975 

SUST- 

217.3 

FIXED- 

. 0.0 

1975 

SUST- 

282.9 

FIXED- 

0.0 

1975 

SUST- 

0.0 

FIXED* 

0.0 

1975 

SUST- 

0.0 

FIXEO- 

0.0 

1973 

SUST- 

217.3 

FIXED- 

o.c 

1973 

SUST- 

282.9 

FIXED- 

0.0 

1973 

SUST- 

0.0 

FIXEO- 

0.0 

1973 

SUST- 

0.0 

FIXED- 

0.0 
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SPECIAL PROGRAMS 


l PLANED 
FIXED COSTS 
FIXED COSTS 


DEV • 0.0 SUST - 0.0 

■ 1380.00 1400.00 800.00 

« 1425.73 1446.39 826.51 


DEV STARTS 1971 FOR 
41.00 1.00 0.0 

42.36 1.03 0.0 


0 YEARS 

0.0 0.0 

0.0 * 0.0 


0.0 

0.0 


0.0 

0.0 


0.0 

0.0 


0.0 

0.0 


NUMBER OF STAGES 13 

f.UM&gfc OF VEHICLES 8 

NUMBER OF FAMILIES 8 

NUMBER OF INTEGRATION COSTS 3 

NUMBER OF PAU COMPLEXES 0 

NU«-sfcK OF MISSIONS 12 

NUMBER OF YEARS 20 

LAUNCH BASE YEAR 71 

TOTAL ESTIMATE 300000.00 

OPTION NUMBER 3 

NUMBER OF SOLUTIONS 3 

INFLATION FACTOR .0 

CORRELATION .50 
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-QUANTITIES BRANCHED UPON 


NU-X5ER 

development 

sustaining 


1 

97 . 90 

92.98 

S-IB STAGE hap.okare 

2 

113,65 

152.03 

s-ic stage haroware 

3 

134.31 

92.98 

S-II STAGE HAPDWAR6 

4 

61-99 

67.41 

S-4B STAGE HARDWARE 

* 

60.40 

19.90 

LS49 STAGE HARDWARE 

6 

295.4Q 

26.79 

1565 STAGE HARDWARE 

7 

. 6560.76 

502.06 

R25B STAGE HARDWARE 

8 

7667.62 

365.04 

3250 STAGS HARDWARE 

Cj 

0414.45 

574.39 

R 1 . 5 STAGE HARDWARE 

If: 

5664.57 

556.72 

SSTC STAGE HA.-.D'.'AkE 

11 

2473.46 

143.20 

s/c stage hardware 

12 

154.97 

P8.08 

CSM STAGE HARDWARE 

13 

0.0 

113.65 . 

SATN SHARED HARDWARE 

14 

1.24 

2.20 

156 SHAREO HARDWARE 

15 

•20.22 

26.00 

120 SHARED HARDWARE 

16 

52.96 

0.0 

1205 SHARED HAKOWARE 

17 

67,45) 

0.0 

1200 SHARED HARDWARE 

18 

107.17 

1.24 

INTEGRATION OF 156 AND LS4B HARDWARE 

19 

107. 17 

0.0 

INTEGRATION OF 120 ANO LS4B HARDWARE 

20 

84.99 

0.0 

INTEGRATION OF 156 AND R250 HARDWARE 


YEAR AVAIL 

last year 

OEV START. 

OEV DURATION 

4 

20 

1974 

1. 

4 

20 

1974 

1. 

4 

20 

1974 

1. 

4 

20 

1974 

1. 

5 

. 20 

1973 

3. 

5 

20 

1973 

3. 

* 8 

20 

1972 

7. 

8 

20 

• 1972 

7. 

8 

20 ■ 

1972 

7. 

8 

20 

19 7 2 

7. 

5 

20 

1973 

3. 

5 

20 

1 '*7/. 

2. 

4 

20 

1971 

0. 

3 

20 

1971 

3. 

1 

20 

1971 

3. 

1 

20 

1971 

3. 

1 

20 

1971 

3. 

3 

20 

1971 

3. 

3 

20 

1971 

3. 

3 

20 

. 1971 

3. 








V 

e 

H 

I 

c 

L 

E 

/ 

M 

I 

S 

S 

I 

0 

N 


C 

A 

P 

A 

B 

I 

L 

! T Y 












(1 

■ 

POSSIBLE 

» 

0 

« 

IMPOSSIBLE) 















1 

1 1 

1 


1 

1 

1 1 


i : 

L 2 


i 2 

2 

2 

2 

: 2 

2 

2 

23333 3 33333444444 

VEHICLE 

/ MISSION 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

1 

2 

3 

4 

5 

6 

7 

e 

9 

0 

1 

2 

3 

4 

5 

6 

7 

890123456789012345 

MISSION NUMBER 

1 

2 

3 

4 

4 

4 

4 

4 

5 

6 

6 

6 

6 

6 

6 

6 

7 

8 

8 

8 

8 

0 

91010101112 

1 S-I3 

S-4? CSM 

1 

0 

1 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

1 

0 

0 

0 

1 

1 

2 s-:c 

$-11 S-40 CSM 

1 

1 

1 

1 

1 

1 

1 

1 

1 

L 

1 

1 

l 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

l 

1 

1 

3 1200 

LS4i CSM 

1 

1 

1 

1 

1 

1 

1 

1 

1 

X 

1 

1 

1- 

1 

1 

1 

l 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

4 1565 

L$4a s/c 

1 

1 


1 

1 

1 

1 

1 

l 

1 

l 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

5 1565 

R250 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

.1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 

6 ft l. 5 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 

7 SSTO 

S/C 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 

8 R256 

R250 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

i 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 


B-15 



CHANGED QUANTITIES BRANCHED UPON 


NU''-iEP DEVELOPMENT SUSTAINING 


YEAR AVAIL LAST YEAR 


7 

8 

9 


19 

11 


86*3.82 502.06 

NUMBER UE UNITS PURCHASED » 6.0 


R25B STAGE HARDWARE 


9097.93 365.0* 

NUMBER OE UNITS PURCHASED = 6.0 

1113*. 98 57*. 39 

NUMBER UE UNITS PURCHASED <= 6.0 

7S52.52 556.72 

NUMBER OE UNITS PURCHASED * 6.0 

3139.6* 1*3.20 

NUMBER OF UNITS PURCHASED = 6.0 


R250 

STAGE 

HARDWARE 

R1.5 

stage 

HARDWARE 

SSTO 

stage 

HARDWARE 

S/C 

STAGE 

HARDWARE 


8 20 

8 20 

8 20 

B 20 

5 20 


K A 

N C H A 

N D 

BOUND 

NODE 

VALUES 


•JDE 

BRANCHED 

COST 

YEARS 

RECURRING 

NON-RECURRING 

TOTAL 


ERUM 

NO* 

SUSTAIN 

BOUND 

BOUND 

BOUND 

2 

1 

10 

0 

3335. *8 

531.91 

3867.39 

3 

1 

10 

8 

3335. *8 

86*1.1* 

11976.63 

4 

1 

10 

10 

3278.53 

9730.22 

13008.75 

5 

1 

10 

12 

3212.82 

10815.56 

1*028.38 

6 

1 

10 

1* 

3055.11 

11861.57 

1*916.68 

7 

1 

10 

!<>.' 
; i» 

2787.88 

13110.56 

15B9B.9* 


1 

10 

2*89.99 

1*521.88 

17011.87 

l 

1 

10 

20 

2091.33 

16033.97 

18125.30 

9 

2 

8 

0/ 

3867 .*0 

12283.76 

16151.16 

10 

2 

8 

8 

3867. *0 

217*6.23 

25613.63 

11 

2 

8 

10 

38*3.05 

22028.98 

25871.53 

12 

2 

8 

12 

3819.95 

22132.88 

259*7.8* 

13 

2 

8 

1* 

37*7.53 

21361.33 

25108.86 

1* 

2 

8 

16 

3633.28 

195*6.98 

23180.26 

15 

2 

8 

> 18 

3505.92 

17**0.63 

209*6.55 

2 

2 

6 

20 

3335.98 

1*379.88 

17710.36 

1<S 

3 

8 

0 

3867.90 

20393.00 

2*260.39 

17 

3 

8 

B 

3867.90 

29855.97 

33722.86 

lb 

3 

8 

10 

38*3.05 

30137.71 

33980.76 

19 

3 

8 

12 

3819.95 

302*2.12 

3*057.07 

20 

3 

8 

1* 

37*7.53 

29*70.57 

33218.09 

21 

3 

8 

16 

3633.28 

27656.21 

31289.99 

22 

3 

8 

18 

3505.92 

255*9.87 

29055.79 

3 

3 

8 

20 

3335.98 

22*8*. 11 

25819.59 

2 3 

* 

8 

0 

3786.10 

21115.5* 

2*901.63 

2* 

* 

8 

8 

3786.10 

30578.01 

3*369.11 

2b 

* 

8 

10 

3786.10 

31283.75 

35069.8* 

>.h 

* 

8 

12 

3758.00 

31360.05 

35118.05 

2 7 

* 

8 

1* 

3690.58 

30559.6* 

3*250.22 

2**, 

* 

8 

16 

3576.33 

287*5.30 

32321.63 

29 

* 

8 

18 

3*98.97 

26638.95 

30087.92 

4 

* 

8 

20 

3278.53 

23573. 19 

26851.72 

30 

5 

8 

0 

3692.29 

21669.00 

25361.29 

31 

5 

0 

8 

3692.29 

31131.98 

3*823.77 

32 

5 

8 

10 

3692.29 

31837.21 

35529.50 

33 

5 

8 

12 

3692.29 

32539.20 

36231.99 

3* 

5 

8 

1* 

3629.87 

31700.22 

35325.09 

3b 

5 

8 

16 

3510.62 

29830.6* 

333*1.25 

36 

5 

6 

18 

3383.26 

27729.29 

31107.55 

5 

5 

8 

20 

3212.82 

2*658.53 

27871.35 


b-i6 



'37 

6 

8 

0 

38 

6 

8 

8 

39 

6 

B 

10 

49 

6 

8 

12 

M 

6 

8 

14 


6 

8 

16 

43 

6 

6 

18 

6 

6 

6 

20 

44 

7 

8 

0 

49 

7 

8 

B 

4 tj 

7 

8 

10 

47 

7 

6 

12 

4 8 

7 

6 

14 

4 9 

7 

8 

16 

50 

7 

8 

18 

7 

7 

6 

20 

51 

9 

9 

0 

52 

9 

9 

8 

53 

9 

9 

10 

54 

9 

9 

12 

55 

9 

9 

14 

56 

9 

9 

16 

57 

9 

9 

18 

9 

9 

9 

20 

58 

8 

8 

0 

59 

8 

6 

8 

40 

8 

8 

10 

41 

6 

B 

12 

6<f 

8 

8 

14 

43 

8 

8 

16 

64 

8 

8 

18 

8 

8 

8 

20 

65 

2 

7 

0 

66 

2 

7 

8 

67 

2 

7 

10 

68 

2 

7 

12 

69 

2 

7 

14 

70 

2 

7 

16 

71 

2 

7 

18 

2 

2 

7 

20 

72 

1 

11 

0 

1 

1 

11 

20 

73 

72 

B 

0 

74 

72 

8 

8 

75 

72 

8 

10 

76 

72 

8 

12 

77 

72 

8 

14 

78 

72 

8 

16 

79 

72 

e 

18 

72 

72 

8 

20 

60 

51 

5 

0 

51 

51 

5 

20 

8 1 

51 

11 

0 

51 

51 

11 

20 

8 2 

51 

6 

0 

51 

51 

6 

20 

8 3 

51 

18 

0 

3 I 

51 

18 

20 

H4 

51 

14 

0 

51 

51 

14 

20 


************ POSSIBLE SOLUTION 
51 


3467.16 

21438.51 

24905.66 

3467.16 

30900.98 

34368. 14 

3467. 16 

31606.71 

35073.87 

3467.16 

32308.70 

35775.86 

3467.16 

32971.36 

36438.52 

3352.91 

31042.77 

34395.67 

3225.55 

28809.06 

32034.61 

3055.11 

25704.54 

28759.64 

3085.68 

20274.73 

23360.41 

3085.68 

29737.21 

32822.88 

3085.68 

30442.94 

33528.62 

3085.68 

31144.93 

34230.61 

3085.68 

31807.59 

34R93 .26 

3085.68 

32423.43 

35509.10 

2958.32 

30189.72 

33148.04 

2787.88 

26953.53 

29741.41 

16245.60 

3604.02 

19849.62 

16245.60 

15313.39 

31558.99 

15678.99 

16462.17 

32141.16 

15025.21 

17610.95 

32636. 16 

13456. 14 

18759.73 

32215.86 

10797.43 

19908.51 

30705.94 

7833.64 

20529.04 

28362.68 

3867.40 

18602.05 

22469.45 

2660.42 

18849.63 

21510.05 

2660.42 

28312. 11 

30972.53 

2660.42 • 

29017.84 

31678.26 

2660.42 

29719.83 

32380.25 

2660.42 

30382.48 

33042.91 

2660.42 

30998.32 

33658.75 

2660.42 

31601.05 

34261 .47 

2489.99 

28364.85 

30854.84 

3867.40 

21395.21 

25262.61 

3867.40 

30541,09 

34408.49 

3843.05 

31199.52 

35042.57 

3814.95 

31804.76 

35619.71 

3747.53 

31851.57 

35599.10 

3633.28 

31233.55 

34866.83 

3505.92 

30429.38 

33935.30 

3335.48 

29013.59 

32349.07 

3335.48 

15321.73 

18657.21 

2091.33 

17929.46 

20020.79 

3867.40 

27073.59 

30940.90 

3867.40 

36536.06 

40403.45 

3843.05 

37290.49 

41133.54 

3814.95 

38048.66 

41863.62 

3747.53 

38846.17 

42593.70 

3633.28 

39690.50 

43323.78 

3505.92 

35306.22 

38812.14 

3335.48 

29164.70 

32500. 18 

45751.19 

996.28 

46747.46 

16245.60 

3604.02 

19849.62 

25844.74 

463.21 

26307.95 

16245.60 

3604.02 

19849.62 

25844.74 

3602.85 

29447.59 

16245.60 

3604.02 

19849.62 

25844.74 

3898.34 

29743.08 

16245.60 

3604.02 

19849.62 

25844.74 

4005.51 

29850.25 

16245.60 

3604.02 

19849.62 

1 ************ 


16295,60 

3604.02 

19849.62 


b X T A 

PAD COSTS 

= 

0.0 



5 

10 

5 

16.00 

19.90 

318.68 

6 

10 

5 

16.00 

26.79 

767.17 

11 

10 

5 

16.00 

143.20 

3038.37 

16 

10 

3 

18.00 

2.20 

3077.95 

18 

10 

3 

18.00 

1.24 

3100.26 

E/TPA 

PAD L small 

SUST COSTS * 

3100. 

26 


N Ed tfALUE = 22949,06 


************ POSSIBLE SOLUTION 2 ************ 


1 




2091.33 

17929.46 

20020.79 

6XTPA 

PAO COSTS = 

0.0 




11 

10 

5 

16.00 

143.20 2291 

.20 


6/TP.A 

PAO 1. 

SMALL SUST 

COSTS 3 

2291.20 



VAlUE 3 

22311.99 




80 

15 

9 

0 

7472.18 

21682.46 

29154.63 

85 

15 

9 

8 

7472.18 

33391.83 

40864.00 

86 

15 

9 

10 

7472.18 

34194.91 

41667.08 

87 

15 

9 

12 

7472.18 

34944.80 

42416.97 

88 

15 

9 

16 

7472.18 

35136.28 

42608.45 

89 

15 

9 

16 

7472.18 

34662.91 

42135.09 

90 

15 

9 

18 

7472.18 

34003.40 

41475.57 

15 

15 

9 

20 

3505.92 

32076.41 

35582.32 



<n 

58 

9 

0 

6626.68 

17280.41 

23907,09 

92 

58 

9 

8 

6626.68 

28989.78 

35616.46 

93 

58 

9 

10 

6626.68 

30138.56 

36765.24 

V* 

58 

9 

12 

6626.68 

31287.34 

37914.02 

95 

58 

9 

14 

6626.68 

32436.12 

39062.80 

96 

58 

9 

16 

61726 .68 

33584.90 

40211. 5B 

97 

58 

9 

18 

6626.68 

34205.43 

40832.11 

58 

58 

9 

20 

2660.42 

33485.41 

36145.83 


**»»«*<>«***** SOLUTION NUMBER 1************ 


1 

RECURRING » 2091.33 

NONRECURRING = 

20220.66 

TOTAL LAUNCH VEHICLE COST - 

22311.99 

MISSION 

CHARACTERISTIC 

PAYLOAD 

RETURN 

LAUNCH 

NUMBER 

OPTIMUM 

LAUNCH 

TITLE 

VELOCITY! FT/ SEC! 

(LBS) 

PAYLOAO 

YEAR 

OF LAUNCHES 

LAUNCH VEHICLE 

SITE 


MANPLA 

29000* 

25000. 

0. 

1989 

B.00 

SSTO S/C 

E 

MAPLSU 

29000. 

25000. 

10. 

1990 

15.00 

SSTO S/C 

E 

M£*«LUN 

29000. 

25000. 

0. 

1985 

8.00 

SSTO S/C 

E 

MAIUSU 

29000. 

25000. 

10. 

1986 

12.00 

SSTO S/C 

E 





1987 

12.00 

SSTO S/C 

E 





1988 

12.00 

SSTO S/C 

E 





1989 

12.00 

SSTO S/C 

E 





1990 

12.00 

SSTO S/C 

E 

SP3ASE 

29000. 

25000. 

0. 

1983 

8.00 

SSTO S/C 

E 

SP5ASU 

29000. 

25000. 

10. 

1984 

12.00 

SSTO S/C 

E 





1985 

1 2.00 

SSTO S/C 

E 





1986 

12.00 

SSTO S/C 

E 





1987 

12.00 

SSTO S/C 

E 





1988 

12.00 

SSTO S/C 

E 





1989 

12.00 

SSTO S/C 

E 





1990 

12.00 

SSTO S/C 

E 

HC l|fj 

29000. 

25000. 

0. 

1985 

7.00 

SSTO S/C 

E 

PfcO*UP 

29000. 

25000. 

10. 

1986 

10.00 

SSTO S/C 

E 





1987 

10.00 

SSTO S/C 

E 





1988 

10.00 

SSTO S/C 

E 





1989 

10.00 

SSTO S/C 

E 





1990 

10.00 

SSTO S/C 

E 

M iUt} 

29000. 

25000. 

0. 

1981 

7.00 

SSTO S/C 

E 

MfeUSUP 

29000. 

25000. 

10. 

1982 

8.00 

SSTO S/C 

E 





1983 

8.00 

SSTO S/C 

E 





1984 

8.00 

SSTO S/C 

E 

MEOO 

29000. 

25000. 

0. 

1979 

7.00 

SSTO S/C 

E 

MEU9UP 

28000. 

25000. 

10. 

1980 

6.00 

SSTO S/C 

E 


B-18 



SOLUTION 1 HAS EXPECT €0 L V COST 22311.99 < 22311.99) NODE - 16387.12 STD. OEV. • 9179.6* 

PARAMETERS KU ANO SIGMASO • 9.26 AND 0.*l 

P«OB (COST LE 16387. ) *0.18 DENSITY • 0.9386 

PR03 (COST LE 23567. ) -0.68 50 PERCENT UNCERTAINTY INTERVAL * 16387. TO 23567. DENSITY • 0.51 


PRC5 

{COS? 

LE 

9439. 

) 

« .00 

OENSITY 


.00 

PRGtt 

(COST 

16 

1404?. 

) 

■0.10 

density 


0.7645 

?R03 

(CUST 

LE 

16929. 

) 

o 

m 

o 

* 

oensity 


0.9322 

prob 

(COST 

LE 

19920. 

) 

■0.50 

density 


0.7642 

PROS 

(COST 

LE 

24105. 

> 

-0.70 

OENSITY 


0.4761 

pros 

(COST 

LE 

33280. 

) 

•0.90 

DENSITY 


0.1478 


t.6********* POSSIBLE SOLUTION 3 ************ 

9 3867.60 18602.05 22669.65 

EXTRA PAD COSTS * 0.0 

EXTRA PAO £ SHALL SUST COSTS » 0.0 


B-19 



-fcscsx ******** SOLUTION NUMBER 2************ 


9 

RECURRING = 3867.40 

NONRECURRING = 

18602.05 

TOTAL LAUNCH 

VEHICLE COST » 

22469.45 

m i ss i uri 

CHARACTERISTIC 

PAYLOAD 

RETURN 

LAUNCH 

NUMBER 

OPTIMUM 

LAUNCH 

TITLE 

velucityift/seci 

(LBS) 

PAYLOAD 

YEAR 

OF LAUNCHES 

LAUNCH VEHICLE 

SITE 


MA.'iPLA 

29000. 

25000. 

0 . 

1989 

8.00 

R1.5 

E 

MAPLS'J 

29000. 

25000. 

10. 

1990 

15.00 

R1.5 

E 

KAfiLUN 

29000. 

25000. 

0. 

1985 

6.00 

R1.5 

F 

MALUSU 

29000. 

25006. 

10. 

1986 

12.00 

R 1 .5 

E 





1987 

12.00 

R1.5 

E 





1988 

12.00 

R1.5 

E 





1989 

12.00 

R1.5 

E 





1990 

12.00 

R1.5 

E 

spbase 

29000. 

25000. 

0. 

1983 

8.00 

R1.5 

E 

SPbAS'J 

29000. 

25000. 

10. 

1984 

12.00 

R1.5 

E 





1985 

12.00 

R1.5 

E 





1986 

12.00 

R1.5 

E 





1987 

12.00 

R1.5 

E 





1988 

■12.00 

R1.5 

E 





1989 

12.00 

R1.5 

E 





1990 

12.00 

R1.5 

E 

vFfjfJ 

29000. 

25000. 

0. 

1985 

7.00 

R1.5 

E 

ir.iiP 

29000. 

25000. 

10. 

1986 

10. CO 

R1.5 

E 





1987 

10.00 

R1.5 

E 





1988 

10.00 

R1.5 

E 





1989 

10.00 

R1.5 

E 





1990 

io.oo 

R1.5 

E 


29000. 

25000. 

0. 

198 1 

7.00 

R1.5 

E 

Mr: OSUP 

29000. 

25000. 

10. 

1982 

8.00 

R 1 .5 

E 





1983 

8.00 

R1.5 

E 





1984 

B. 00 

R1.5 

E 

m e no 

29000. 

25000. 

0 . 

1979 

7.00 

R1.5 

E 

MtUSUP 

28000. 

25000. 

10. 

1980 

6.00 

R1.5 

E 


SOLUTION 2 

HAS 

EXPECTED L 

V COST 

22*69. *5 

22*69. *5) 

MODE - 1*059.72 

STD. 

DEV. - 

13004.52 


PARAMETERS 

MU AND 

SIGMASO - 

9. 

13 AND 

0.69 






PROS 

(COST 

LE 

1*060. ) 

■0.13 

DENSITY - 

6.9570 






PROS 

(COST 

LE 

21718. ) 

■0.63 

-50 PERCENT 

UNCERTAINTY 

INTERVAL » 1*060. 

.TO 

21718. 

DENSITY - 

CD 

-r 

e 













PROS 

(COST 

LE 

9*39. ) 

» .00 

density ■ 

.00 






PROS 

(COST 

LE 

12616. ) 

■0. 10 

DENSI.TY ■ 

0.865* 






PROS 

(COST 

LE 

15*05. ) 

o 

t*\ 

o 

a 

oensity - 

0.9136 






PROS 

(COST 

LE 

16662. ) 

a 

o 

V* 

O 

density • 

0.6700 






PROS 

(COST 

LE 

23698. > 

■0.70 

density ■ 

0.3823 






PROS 

(COST 

LE 

36209. > 

= 0.90 

density • 

0.1027 






PROS 

( ASSIGNMENT 2 COST 

GE- ASSIGNMENT 1 COST) »0.3* IF 

CORRELATION -0.6 






PftOB ( ASSIGNMENT 2 COST GE ASSIGNMENT I COST) -0.33 IF CORRELATION *0.3 


PROS (ASSIGNMENT 2 COST GE ASSIGNMENT 1 COSTJ -0.32 
PROB < ASSIGNMENT 2 COST GE ASSIGNMENT 1 COST) *0.27 


IF CORRELATION «0.6 
IF CORRELATION -tf.9 
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$##*#*#****** SOLUTION NUMBER 
51 RECURRING = 16245.60 NONRECURRING 


3. *.*«****.«* 

6704.26 TOTAL LAUNCH VEHICLE COST 


22949.86 


MISSION 

CHARACTERISTIC 

PAYLOAD 

RETURN 

TITLE 

VELOCITY! FT/ SEC I 

(LBS) 

PAYLOAO 

MANPLA 

29000. 

25000. 

0 . 

MAPLSU 

29000. 

25000. 

10. 

MAN L UN 

29000. 

25000. 

0 . 

MALUSU 

29000. 

25000. 

10. 

S PHASE 

29000. 

25000. 

0 . 

SPftASU 

29000. 

25000. 

10. 


PglMJ 

29000. 

25000. 

0 . 

Me US UP 

29000. 

25000. 

10. 

»** t: M 0 

29000. 

25000. 

0 . 

Pc US UP 

29000. 

25000. 

10. 

P6U0 

29000. 

25000. 

0. 

MHUSUP 

28000. 

25000. 

10. 


LAUNCH 

NUMBER 

OPTIMUM 

LAUNCH 

YEAR 

OF LAUNCHES 

LAUNCH VEHICLE 

SITE 

1989 

8.00 

1565 LS4B S/C 

E 

1990 

15.00 

1565 LS4B S/C 

E 

1985 

8.00 

1565 LS4B S/C 

E 

1986 

12.00 

1565 LS4B S/C 

E 

1987 

12.00 

1565 LS4B S/C 

E 

1988 

12.00 

1565 LS4B S/C 

E 

1989 

12.00 

1565 LS4B S/C 

E 

1990 

12.00 

1565 LS4B S/C 

E 

1983 

8.00 

1565 LS4B S/C 

E 

1984 

12.00 

1565 LS4B S/C 

E 

1985 

12.00 

1565 LS4B S/C 

E 

1986 

12.00 

1565 LS4B S/C 

E 

1987 

12.00 

1565 LS4B S/C 

E 

1988 

12.00 

1565 LS4B S/C 

E 

1989 

12.00 

1565 LS4B S/C 

E 

1990 

12.00 

1565 LS4B S/C 

E 

1985 

7.00 

1565 LS4B S/C 

E 

1986 

10.00 

1565 LS4B S/C 

E 

1987 

10.00 

1565 LS4B S/C 

E 

1988 

10.00 

1565 LS4B S/C 

E 

1989 

10.00 

1565 LS4B S/C 

E 

1990 

10.00 

1565 LS4B S/C 

E 

1981 

7.00 

1565 LS4B S/C 

E 

1982 

8.00 

1565 LS4B S/C 

E 

1983 

8.00 

1565 LS4B S/C 

E 

1984 

8.00 

1565 LS4B S/C 

E 

1979 

7.00 

1565 LS4B S/C 

E 

I960 

6.00 

1565 LS4B S/C 

E 


SOLUTION 3 

HAS 

EXPECTED L V COST 

22969.86 

( 

22969.9 2) 

MODE - 

20632.64 

STD. 

DEV. - 

4939.20 

PARAMETERS KU AMO 

i SIGMASQ • 9. 

65 AND 


0.13 






PROS 

(COST 

LE 

20633. ) -0.26 

oensity 

- 

1.2770 






PROS (COST LE 

25772. ) -0.76 

50 PERCENT 

UNCERTAINTY 

INTERVAL • 

20633. 

•TO 

25772. 

DENSITY 

PROS 

(COST 

LE 

9639. ) - .00 

OENSITY 


.00 






PROS 

(COST 

LE 

17698. ) -iO.IO 

oensity 


0.R305 






PROS 

(COST 

LE 

19979. > -0.30 

DENSITY ■ 


' 1.2587 






PROS 

(COST 

LE 

22129. I -0.50 

DENSITY 


1.1996 






PROS 

(COST 

LE 

26716. ) -0.70 

* oensity 


0.8684 






PROS 

(COST 

LE 

29619. ) -0.90 

OENSITY 


0.3350 







<>KOU I ASSIGNMENT 3 COST GE ASSIGNMENT .1 COSTI «0.71 IF CORRELATION *0.0 


PROS ( ASSIGNMENT 
PROa ( ASSIGNMENT 
PROS 1 ASSIGNMENT 
PROS I ASSIGNMENT 
PROS I assignment 


3 COST GE ASSIGNMENT 
3 COST GE ASSIGNMENT 
3 COST GE ASSIGNMENT 
3 COST GE ASSIGNMENT 
3 COST GE ASSIGNMENT 


1 COSTI .0.72 IF CORRELATION *0.3 
1 COSTI *0.74 IF CORRELATION >0.6 

1 COST) .0.79 IF CORRELATION "0S9 

2 COST) .0.74 IF CORRELATION -0.0 
2- COST) -0.75 IF CORRELATION "0.3 
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pp.cjb ( 


pkjh 


ASSIGNMENT 3 COST GE ASSIGNMENT 2 COST) =0.77 
ASSIGNMENT 3 COST GE ASSIGNMENT 2 COST) =0.81 


F CORRELATION =0.6 
IF CORRELATION =0.9 


THE OPTIMUM SOLUTION HAS BEEN DETERMINED 



TITLE = 'TEST CASE*, LEVEL = 3180. , 3500. ,3850. ,*230. ,4650. ,511 0. , 

3620. . 61 BO., 6800., 7480., 8130. , 8960., 9830. , 10810. , 11890. , 13080. , 16390. , 

15830. . 17610. .19150., 

ISTRT = 2, I F IN = 20, 

MAX1TK = 10, F1XE0 = 1800. , 1650. , 1500. , 1560. , 1590. , 

1630.. 1680.. 1760.. 1800.. 1870. .1930.. 2010. .21 00. .2200. .2310. .2630. , 

2560. . 2700. .2860. .3160. • 

PMAX * 15500., PHIN = 1500., 

NCSTR = 11, NPROG = 101,73,76,71,72,75,76,80,81,86,85, 

KOOE = 8,10X6, 

KPROG = 0,76,73,72,71,76,75,81,80,85,86, 

CS “ 0 • , 0. , — 1 • , 0 . , — 1 . , 0 . , — 1 • , 0 . , “1 • , 0 • , *" 1 » , 


35 CONSTRAINTS 


KOOE 

8 13 PLANED FIXED 


6 

TARGET DATE 

11 MFOO NO LA7ER 

THAN 

0. YEARS 

AFTER 

12 1 

MEOSUP 

6 

TARGET OATE 

12 

MEOSUP NO LATER THAN 

1. YEARS 

AFTER 

11 1 

MEOO 

6 

TARGET OATE 

9 MEOO NO LATER 

THAN 

0. YEARS 

AFTER 

10 1 

MEOSUP 

6 

TARGET DATE 

10 

MEOSUP NO LATER 

THAN 

1. years 

AFTER 

9 I 

MEOO 

6 

target date 

7 MEOO NO LATER 

than 

0. YEARS 

AFTER 

8 1 

MEOSUP 

6 

TARGET OATE 

8 1 

MEOSUP NO LATER 

THAN 

I. YEARS 

AFTER 

7 1 

MEOO 

6 

TARGET OATE 

b : 

SPBASE NO LATER 

THAN 

0. YEARS 

AFTER 

6 : 

SPBASU 

6 

TARGET OATE 

6 

SPBASfl NO LATER 

THAN 

1. YEARS 

AFTER 

5 

SPBASE 

6 

TARGET DATE 

1 MANPLA NO LATER 

THAN 

0. YEARS 

AFTER 

2 1 

MAPLSU 

6 

TARGET OATE 

2 

MAPLSU NO LATER 

THAN 

1. YEARS 

AFTER 

1 1 

MANPLA 

11 

PROGRAM 

OEV 

16 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

1 

MANPLA 

11 

PROGRAM 

OEV 

15 

COMPLETED 

BY 

first 

LAUNCH 

OF 

PROGRAM 

1 

MANPLA 

11 

PROGRAM 

OEV 

16 

COMPLETED 

BY 

FIRST 

LAUNCH 

UF 

PROGRAM 

2 

MAPLSU 

11 

PROGRAM 

OEV 

15 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PRUGRAM 

2 

MAPLSU 

11 

PROGRAM 

OEV 

16 

COMPLETED 

8Y 

FIRST 

LAUNCH 

OF 

PROGRAM 

3 

HANLON 

11 

PROGRAM 

OEV 

15 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

3 

MANLUN 

11 

PROGRAM 

OEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

6 

MALUSU 

11 

PROGRAM 

OEV 

15 

completed 

BY 

FIRST 

LAUNCH 

OF. 

PROGRAM 

6 

MALUSU 

11 

PROGRAM 

DEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PRUGRAM 

5 

SPBASE 

11 

PROGRAM 

OEV 

15 

completed 

8 Y 

FIRST 

LAUNCH 

OF 

PRUGRAM 

5 

SPBASE 

11 

PROGRAM 

OEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

6 

SPBASU 

11 

PROGRAM 

OEV 

15 

completed 

BY 

F irst 

LAUNCH 

OF 

program 

6 

SPBASU 

11 

PROGRAM 

OEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

7 

MEIJO 

11 

PROGRAM 

OEV 

15 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

7 

MEOO 

11 

PROGRAM 

OEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

8 

MEOSUP 

11 

PROGRAM 

OEV 

15 

complfteo 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

8 

MEOSUP 

11 

PROGRAM 

OEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

9 

MFOO 

11 

PROGRAM 

OEV 

15 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

9 

MEOO 

11 

PROGRAM 

OEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

10 

MEOSUP 

11 

PROGRAM 

OEV 

15 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

10 

MEOSUP 

11 

PROGRAM 

OEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

11 

MEOO 

11 

PROGRAM 

OEV 

15 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

11 

MEOO 

11 

PROGRAM 

OEV 

16 

completed 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

12 

MEOSUP 

11 

PROGRAM 

OEV 

15 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

12 

MEOSUP 



RECURRING COST OATA 


KEY NAME 


UNIT COST 


7 SSTOS/C 


7*36 


REFERENCE YEAR 1971. 


PM 

NAME 

START 

05 VL 

YRS 

SUST 

SS 

1 

MAN PL A 

1954. 

29748. 

6. 

1360. 

4 

2 

MAPLSU 

1934. 

0 . 

0 . 

0 . . 

1 

3 

MAN LON 

I960. 

29748. 

6. 

1360. 

4 

A 

M A LL'SU 

: c \"G. 

0 . 

0 . 

0 . 

1 

5 

s^ASt 

1977. 

13018. 

7. 

716. 

5 

6 

S?\‘A$U 

1977. 

0 . 

0 . 

0 . 

1 

7 

Mt-J 

1479. 

4804. 

7. 

283. 

5 

3 

v ; • 1 V j P 

1979. 

0 . 

0 . 

0 . 

1 

9 

m c •: 'j 

1975. 

4 304. 

7. 

283. 

5 

10 

Mfc'JiUP 

1°75. 

C. 

0. 

0 . 

1 

XI 

MrOJ 

1473. 

4804. 

7. 

283. 

5 

12 

Mr US UP 

1973. 

0 . 

0 . 

0 . 

1 

13 

PLANED 

1971 . 

0 . 

0 . 

0 .. 

1 

14 

DcV 10 

1972. 

’ 7553. 

7. 

557. 

5 

15 

OEV U 

1973. 

3140. 

3. 

143. 

2 

TOTAL 


97617. 


61526. 



TEST CASE 

SO RS RD RECURRING OR FIXED ITEMS 


13 

3 

4 

187. 

440. 

335. 

321. 

0 

4 

4 

133. 

405. 

438. 

410. 


4 

4 

1. 

2. 

3. 

4. 

13 

3 

4 

187. 

440. 

335. 

321. 

0 

4 

8 

106. 

430. 

7B0. 

1108. 

13 

4 

4 

128. 

303. 

238. 

22 3, 

0 

5 

10 

96. 

389. 

709. 

1006. 

8 

4 

4 ■ 

172. 

406. 

308. 

295. 

.0 

5 

8 

56. 

22 7. 

420. 

594. 

6 

4 

. 4 

172. 

406. 

308. 

295. 

0 

5 

6 

45. 

. 181. 

336. 

431. 

5 

4 

4 

172. 

406. 

308. 

295. 

0 

5 

4 

33. 

103. 

116. 

105, 

0 

0 

0 

0. 





1 

5 

1426. 

144 6. 

827. 

42. 

16 

0 

0 





18 

0 

0 






1108. 

1002. 

678. 

328. 

1006. 

1006. 1006. 

910, 617. 297. 

594. 

539. 

368. 

175. 


294. 140. 

1 . 
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TOTAL PROGRAM COSTS AND LAUNCH VEHICLE SCHEDULE 


year 

1971. 1972. 

1973. 

197*. 

1975. 

1976. 1977. 

1978. 

1979. 

P^OfAAM 
1 MAN? LA 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

2 YA?LSU 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

3 KANLUN 

0. 0. 

0. 

0. 

0. 

0. 

0 . 

0. 

0. 

* MALUSU 

0. 0. 

0. 

0. 

0. 

0. 

. 0. 

0. 

0. 

s spaz.se 

0 . 0 . 

0. 

0. 

6. 

0. 

58*. 

1716. 

2682. 

6 $»6ASU 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

7 m 00 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

215. 

A M EOSUP 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

5 Mb 00 

0. 0. 

0. 

0. 

215. 

633. 

990. 

1293. 

1678. 

10 *sesup 

0. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

*5. 

11 MtOO 

0. 0. 

215. 

633. 

990. 

1290. 1678. 

122*. 

79*. 

iz yeosup 

0. 0. 

0. 

0. 

0. 

0. 

33. 

103. 

7* 

116. 

13 PLANED 
1 * Ofcv 10 

1 * 26 . 1 ** 6 . 

0. 339. 

827. 
996 . 

*2. 

1556. 

1. 

1770. 

2112. 1552. 

896. 

557. 

15 dev n 

0. 0. 

828. 

1615. 

971. 

1*3. 

1*3. 

1*3. 

1*3. 

SUM 

1*26. ms. 

2866. 

38*6. 

39*7. 

*187. *981. 

5380. 

67 30. 

f l«0 

1800. 1650. 

1500. 

15*0. 

1590. 

1630. 

1680. 

17*0. 

1P00. 

TOTAL 

3226. 3*36 • 

*366. 

5386. 

5537. 

5817. 

6661. 

7120. 

80 30. 


V 

4 

« 

» 

4 

4 

0 

4 

level 

3180. 3S00. 

3850. 

*230. 

*650. 

5110. 5620. 

6180. 

68 00. 

MUDS 

3186. 3320. 

3906. 

*58*. 

*655. 

5022. 6156. 

6715. 

7500. 

*>0 Pfcft CENT 
C'J-.rlO. 3362. 36*9. 

*697. 

5760. 

5891. 

6258. 7285. 

7780. 

080*. 


RMS * A2SM. SMOOTHING INTERVAL 1972. THRU 1990. 


1980. 

1981. 

1982. 1983. 198*. 

1985. 1986. 

1987. 1988. 

1989. 

1950. 

0 . 

0 . 

0. 0. 191?. 

5310. 7833. 

9**6. 7005. 

3592. 

7* 

1360. 

0 . 

0 . 

0 . 0 . 0 . 

0 . 0 . 

13*. 

*07. 

** 1 .' 

■: .*!*• 

7* 

1912. 

5310. 

7833. 9**6. 7005. 

3592. 1360. 
7* 

1360. 

1360. 

1360. 

1360. 

0 . 

0 . 

O: 106. *30. 

730. 1108. 

7* 

1108. 1002 . 
79 7« 

676. 

7® 

320. 

3179. 

3701. 

2670. 1523. 716. 

7* 

716. ■ 716. 

716. 

716. 

716. 

7 » 6 . 

0 . 

96. 

389. 709. 1006. 

7* 

1006. 1006. 
74 7 * 

1006. 

7* 

910. 

7* 

617. 

7* 

297. 

7* 

633. 

990. 

1298. 1678. 122*. 

79*. 283. 

283. 

283. 

263 • 

283. 

0 . 

122 *. 

181. 

233. 

105. 
. 7* 

0 . 

79*. 

7* 

}36. 

2 83. 

0. 56. 227. 

283. 283. 283. 

*31. 29*. 1*0. 

7* 7* 7* 

*20. 59*. 

7* 

59*. 

7* 

539. 

7® 

368. 

'7* 

175. 

7* 

557. 

557. 

557. 557. 557. 

557. 557. 

557. 

557. 

557. 

557. 

1*3. 

1*3. 

1*3. 1*3. 1*3. 

1*3. 1*3. 

1*3. 

1*3. 

1*3. 

1*3. 

8217. 

12209. 

1360*. 1*796. 136*3. 

133 13. 13601. 

153*8.12921. 

6755. 

56 32. 

1B70. 

T930. 

2010 . 2100 . 2200 . 

2310. 2*30. 

2560. 

2700. 

2 3*0. 

31*0. 

10087. 

1*139. 

1561*. 16896. 150*3. 

15628.16031. 

17908.15621. 

1 1616. 

6773. 

* 

* 

* 4 * * 

4 4 

4 4 

V 

m 

7*80. 

6130. 

89*0. 9830.10810. 

11890. 13080. 

1*390.15830. 

17*10. 

15150. 

9269. 

121*7. 

12591.13919.13792. 

13536.12928. 

1*881.135**. 

10726. 

6005. 

11117. 

155*3. 

168**. ie3e3. 17*61. 

17183.17218. 

19*77.1712 2. 

12712. 

9*72. 



YEAR 
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fcflfJ OH OAT A 


JOB COMPLETE 


JOB 

NO. 

JOB 

TYPE 

PROGRAMMER 

NAME 

• CP 
NO. 

JOB 

ORDER 

TIME (MIN) 
BEGIN EXEC 

LINES 

PRINTED 

JOB CPU 
MIN. 

ACCT 

UNITS 

PRIOR 

TYPE 

OATE 

A230 

TEST 

GOLOEN 

M0X02BB 

T3582 

1097.38 

903 

0.52 

0.1* 

N 

11/08/71 
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Appendix C 
FLOW CHARTS 

C.l DESCRIPTION 

Flow charts are provided in this section for each of the major subroutines and the 
main program MASTER. They appear in alphabetical order by subroutine name. 

A short description of the purpose of each subroutine is provided in the program 
listing in Appendix D. Subroutines AFRMT, INPUT, PLOT, and PACK were written 
in 3G0 Assembler Language so a description of each subroutine appears in this section 
rather than a flow chart. 

C.2 MAJOR SUBROUTINE CHARTS 

The subroutine flow charts follow. 
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SUBROUTINE AFRMT 


IDENTIFICATION 

Subroutine AFRMT 
Deck Name MOX02AT 

Fortran IV subroutine coded in 360 Assembler Language 
Written by R. E. Slye 

PURPOSE 


This subroutine converts a variable from integer to A format 
USAGE 


CALL AFRMT (I, X) 


where 

I is the name of the variable (may be one element of an array) in integer 
format 

X is the name of the result returned in A4 format 




INITIALIZE 

NSTG 

NFAM 

NCI 

NMIS 

NP 

NV 

IFLAG 


CALL DATINS 

READ AND PRINT- 
OUT COST AND 
MISSION DATA 




YES 


SETUP MISSION MATRIX 
BY YEAR 

NM 

NUMBER OF MISSION- 


YEAR COMBINATION 

LETT ■ 

MISSION NUMBER 

LYR = 

LAUNCH YEAR 

YRLM = 

LAUNCH RATE 



SUBROUTINE ASSIGN 























0 

1 

t-3 














HAVE ALL 
VEHICLES 
BEES 

CONSIDERED? 



CALL PACK 


STORE LZ VALUES 
BY BIT IN VNM 


HAVE ALL 

MISSION- 

YEAR 

COMBINATIONS 

BEEN 

CONSIDERED? 


SUBROUTINE AVAILI 



















SUBROUTINE CAPBLI 

















SUBROUTINE CAPBLI (Cont. ) 



























0 

1 

oo 



SUBROUTINE CHOOZS 
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SUBROUTINE CHOOZS (Cont. ) 
























SUBROUTINE CMPARE 










9TAST 


V 





































-12 


O 


READ AND PRINT OUT 
MISSION COST DATA 
LAUNCH RATE AND 
REQUIREMENTS 


DETERMINE NMB - 
NUMBER OF MISSIONS 


CALL MEAN 


STOP WHEN READ 
BLANK CARD 




10 


(ctART^-*- 


READ 

CASE 

CARD 





READ AND PRINT OUT 
PAD COST DATA 


DETERMINE NP = 
NUMBER OF PAD COSTS 

STOP WHEN READ BLANK 
CARD 


NO 


YES 


RESTORE VALUES OF 
NSTG. Nr AM NCI. NP, 
N MIS FROM LAST CASE 
IF APPROPRIATE 



READ AND PRINT OUT 
SPECIAL PROGRAM 
COST DATA 


DETERMINE NSPR 
= NUMBER OF 
SPECIAL PROGRAMS 


CALL MEAN 


STOP WHEN READ 
BLANK CARD 


READ AND PRINT OUT 
STAGE COST DATA 

/ X YES 

JNO 

DETERMINE NSTG - 
NUMBER OF STAGES 

CALL MEAN 


READ AND PRINT OUT 
SHARED COST DATA 

STOP WHEN READ 

BLANK CARD 




DETERMINE NFAM *= 
NUMBER OF SHARED COSTS 


CALL MEAN 

STOP WHEN READ BLANK 
CARD 



READ AND PRINT OUT 
INTEGRATION COST DATA 


DETERMINE NCI = 
NUMBER OF INTEGRATION 
COSTS 



CALL MEAN- 


STOP WHEN READ BLANK 
CARD 


SUBROUTINE DAT INS 






D6 (NUMD) - SNRfT) 

D9 - DS ■* SPECIAL C06TS RXD 
SUST (NUMD) • STSff) 


/ STAGE \ 
/ LOOP 1 

_ ARE ALL NON-RECURRING W 

INCREMENT 

IS - DEV. START YEAR - BT(I) 
♦ 1900 

IS SUSTAINING COST 
. FOR ANY LAUNCH I YC “ 

INCREMENT 

l 1-1. J 

\ NSTQ / 

COSTS FOR STAGE I - 0? 

NUMD 

NYD (NUMD) • 1ST YEAR STAGE 
AVAILABLE 

1 FACILITY ASSOC 1 

WITH 6TAGE 1-07 1 

NUMD 


LYD (NUMD) - LAST YEAR STAGE 
AVAILABLE 

YD (NUMD) - DEV. DURATION 


DS(NUMD) - 0 
BUST(NUMD) - SUSL«(1) I 


NO | HAVE ALL STAGES 
I BEEN CONSIDERED! 


DS<NUMD) -0 I 

8U8T(NUMD) - FMSL8<n) I 


INCREMENT NUMD 


1 HAVE ALL FAMILIES I W ° 
I BEEN CONSIDERED 7 I 


IS SUSTAINING COST 
FOR ANY LAUNCH 
FACILITY ASSOC - 
WITH FAMILY II 
- 0 ? 


DS (NUMD) - FMNR(T) 

DS - DS ♦ SPECIAL COSTS RXD 
SUST (NUMD) ■ FMSUS (I) 

18 - JST(I) ♦ 1900 
NYD (NUMD) | (SAME AS 
LYD (NUMD) ) FOR STAGE) 

YD (NUMD) 


INCREMENT NO ARE ALL NON- 

Smm R EC URRINO COSTS 

NUMD FOR II - 0 


CALCULATE FAMILY AVAILABILITY DATE 

FIRST (LAST) YEAR FAMILY IS AVAILABLE - 
FIRST (LAST) YEAR ANY 8TAGE IN THAT 
FAMILY IS AVAILABLE 


0 

1 


SUBROUTINE DECSNI 
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SUBROUTINE DECSNI (Cont. ) 
























SUBROUTINE INPUT 


IDENTIFICATION 

AL INPT Generalized Data Input Subroutine 
360 /Assembler Language 
Written by R. E. SLye 

PURPOSE 

This subroutine provides for input of single-precision fixed and floating point numbers 
and Hollerith information. Usage is particularly convenient inasmuch as no format 
statements are required, and data may be loaded in any order irrespective of the 
order in the calling statement. 

USAGE 

The calling statement is 

CALL INPUT (5HALPHA, ALPHA, 4BETA, BETA, ...) 

In the above, the Hollerith literals represent the external names of variables or arrays 
as they should appear on data cards. The other arguments are the internal names of 
the variables and arrays as referenced in the source program. It will become apparent 
that by using the external names in addition to the symbolic location names, it is possible 
to enter data for a variable on an input card without regard to its relative location in 
the calling sequence of the program. 
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ACCEPTABLE INPUT DATA FORMS 

A. Floating Point General Form 

Up to 9 decimal digits, with a decimal point 

permitted at the beginning, at the end or between 

two digits. A preceding plus or minus sign is 

optional. A decimal exponent preceded by E+ or 

+ or - if negative may follow. If no decimal 

point appears, the exponent is mandatory. The 

magnitude of the number must be between the 

-75 75 

approximate limits of 10 and 10 . 

B. Decimal Integers General Form 

The magnitude of the number must be less than 
31 

2 . A preceding plus or minus sign is optional. 


C. Hollerith Information General Form 

Any number of characters, including blanks. 

The number of characters is specified by writing 
nH preceding the Hollerith information, n is 
the number of characters in the block following nH. 

RULES FOR PREPARATION OF DATA CARDS 

Blanks are ignored except within Hollerith data fields. 

Data must be contained within card columns 1 through 72. 


Examples 

17. 

5.0 

- . 0003 

5.0E3 (5.0 x 10'*) 
5.0E + 3 (5.0 x 10**) 
5.0E-7 (5.0x10-7) 


Examples 

3 

+1 

-28987 

Examples 

14HTHIS IS A TEST 
6HALPHA 



It is not necessary that variable names on the data cards appear in the same order 
as those in the calling sequence. The routine will search the list for the name and 
its core location. 

Individual data items are separated by commas. 

An equal sign separates the name of a variable and its first data item. 

A comma separates the end oi a data set and the next variable name. 

A data input record is terminated by an asterisk (*). 

It is not necessary to input a data set for each name in the calling sequence. 


Elements of an array may be skipped by writing consecutive commas - i. e. , no data 
between the commas; or by singly subscripting the array name. Double subscripting 
is illegal. Thus, if it is desired to input data into a three-element vector V, one 
could write: 


V = 2.79,, 1.32 

No data would be entered into V(2). What was originally there remains there. 
Alternatively, the above could be written: 

V(l) = 2.79, V(3) = 1.32 

S pecial Feature. The card image is normally written on the system output unit, tape 6, 
prior to being processed by the routine. If an N is punched in column 73, the card will 
not be listed. If column 73 contains a C, the card is treated as a comment only; i.e., 
it is not scanned for data. If the card contains CE in columns 73- 74, the card will 
be treated as a comment card, and a page will be ejected. 
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EXAMPLE 


If the following call statement appeared in a FORTRAN program, 

CALL INPUT (1HA, A, 1HB, B, 1HC, C, 1HD, D, 1HP, P, 1HR, R, 1HS, S) 
the input cards could be punched as follows : 

A = 3.14159265, B = 707, C = 1870, 

D = 1., 2., 3., 4., 5., 6., 7., 8., 9., 

R(2) = 3, R(5) = 74., 42, 

F = 22HTHIS IS A CHECKOUT RUN* 

Note that D must be dimensioned at least 9, 

R dimensioned at least 7 and P at least 6. 

Also R(l), R(3), R(4), and R(6) are unchanged. 

Even though S appears in the CALL statement, it is not 
necessary that it appear on one of the input cards. The 
* on card 4 signifies the end of the data record. This 
means that the routine will return control to the calling 
program. 

RESTRICTIONS 

The following errors will be detected by the subroutine. A diagnostic message and 
the card in error will be permited on the system output unit, tape 6. 

1. Name on data card exceeds six characters. 

2. Name on data card does not appear in the calling sequence. 

3. Punctuation errors. 

4. Name on data card begins with a non-alphabetic character. 

5. Decimal or integer data out of range. 

This subroutine may be used for reading double precision numbers ; however, only the 
hig h order part of the number will be loaded. To clear the low order part of the 
number, write 

DWORD = 1., 0, 


1st card 
2nd card 
3rd card 
4th card 
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ADDITIONAL INFORMATION 


1. A slash (/) on a data card (not in an H field) indicates that information to 

the right of the slash is not to be scanned for data. Therefore, these columns 
may be used for comments. 

2. In addition to the above means for entering Hollerith information, Hollerith 
may also be entered by enclosing it in apostrophes, i.e., P = 'THIS IS 

A CHECKOUT RUN’ 

3. Floating point and integer data may be repeated into consecutive locations 
by use of the letter X followed by the data; i.e., 

D = 1., 4X2., 3., 

is equivalent to 

D = 1., 2., 2., 2., 2., 3., 

4. Alphanumeric data may also be repeated. The use of the letter X is 
optional. For example, to set an array dimensioned 18 to blanks, write 

TITLE = 18' ', 

If the alphanumeric field exceeds 4 characters, only the last word will 
be repeated. For example, 

DATA = 3'ABCDEF', will result in 
ABCDEF EF EF 

5. If a name on a data card is not followed by an equal sign, it will be retrieved 
from the calling program. For example, if in the calling program, X and 
ALPHA are dimensioned at least 2, then the following data card 

X = 3.1, ALPHA (2), 

will result in the current value of ALPHA(2) being stored in X(2). 
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As an additional example, suppose that the calling FORTRAN program 
has the following sequence: 

LOGICAL 

• • • 

• • • 

TRUE = .TRUE. 

FALSE = .FALSE. 

• • • 

• • • 

CALL INPUT (. . 'OK', OK, 'TRUE', TRUE, 

•FALSE', FALSE, . . .) 

Then a data card written as follows, 

OK = TRUE, 

will result in the input of logical data to the program. 

6. If a comma is omitted from a data card, a warning will be written on the 
system output unit and execution will continue. However, for any other 
type of error, execution will be suppressed, and the remaining data cards 
will be scanned for errors. 

7. This subroutine will accept data cards punched on either a 026 for 029 
keypunch. 
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NO 


WILL NEW PENALTY 
FUNCTION • PR CVIOUS 
PENALTY FUNCTION? 


YES 
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f YES 

[return — < 


/CONSTRAINT^ 

/ LOOP 

l INCREMENT 1 

NCSTRy 



COMPUTED GOTO 


HAVE ALL 
CONSTRAINTS 
BEEN CONSIDERED? 


SUBROUTINE LISTC 
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CALCULATE VA 
SMOOTH USING 
PROGRAM DAT; 

JUABLES FOR 
MISCELLANEOUS 

S, R, NSTRST. N - NMIS * NSPR ] 




CALCULATE VARIABLES FOR 
SMOOTH USING DEVELOPMENT 
AND SUSTAINING COSTS 

LABEL, C, NYRSFX, RFDCD, 
NSTRFX, & R, SUS. NSTRST, 
NYRSST. N ** NMIS ♦ NSPR 
+ NUMBER OF DECISION OPTIONS} 
USED IN OPTIMUM ASSIGNMENT 


SUBROUTINE MASTER 
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FOR EACH STAGE ASSOCIATED 



/vehicleX 


WITH VEHICLE I 


( START j— 

LOOP v_ 

JX • 1 __ 


JX - JX* 1 


KX- 1 

- NUMD REFERENCE NUMBER 

KX - KX* I 


/JX > M\ 
vOR a > 20> 


FOB EACH m COST ASSOC. 
WITH EACH STAGE ASSOC. 
WITH VEHICLE I 

NONRECfl. JX) • NVMD 
REFERENCE NUMBER 


rOR EACH ETR PAD COST 
ASSOC. WITH VEHICLE I 

-52^ — | >cx -icx ♦ i|— 

FOR EACH WTR COST 
ASSOC. WITH EACH STAGE 
ASSOC. WITH VEHICLE I 

NO NR EC (L JX) - NVMD 
REFERENCE NUMBER 


I V 

NONR EC(I ♦ NV. KX) - NUMD 
REFERENCE NUMBER 


FOR EACH WTR PAD COST 
ASSOC. WITH VEHICLE I 

H 

KX - KX* l 


FOR EACH FAMILY ASSOC. 
WITH VEHICLE I 

NONR EC (I ♦ NV KX) - NUMD 
REFERENCE NUMBER 




NONR EC (X. JX) • NONR E 0(1 ♦ NV. KX) 
• NUMD REFERENCE NUMBER 


JX • JX* 1 
IOC • IOC ♦ » 


/JX >20> 
SpR KX » t 


v ^ 

,\ YE3 HAVE ALL VEHICLES Y . E5 



HAVE ALL STAGES 

ADD ETR AND WTR COSTS 
PLUS PAD COSTS ASSOC. 

NO /7X > 

JX • JX ♦ I . 

/ BEEN CONSIDERED? 

FOR VEHICLE I? 

WITH EACH INTEGRATION 

KX > 

KX - KX ♦ 1 

NO 

NO 

(SOME LOGIC AS FOR 
STAGE DATA) 

r 


FOR EACH ASSOC. 
INTEGRA HON COST 


ADD ETR AND WTR COSTS 
PLUS PAD COSTS AS90C 
WITH EACH FAMILY ASSOC. 
WITH VEHICLE L (SAME 
LOGIC AS FOR STAGE DATA) 


SUBROUTINE MATCHI 























I 

EC 


SUBROUTINE MATEI 
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SUBROUTINE MEAN (PI, KSTAT, SIGS, SX, 















CO 

d 

a 

» 

o 

d 

H 


W 

d 

H 

a 

I— i 

a 

x 

O 

S 
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SUBROUTINE OUTPTI 







SUBROUTINE PACK 


IDENTIFICATION 

Subroutine PACK 
Deck Name MOXOIPK 

Fortran IV subroutine coded in 360 Assembler Language (also COMPASS coded for 
the CDC). Written by R. E. Slye 

PURPOSE 

This subroutine is used to pack an array of integer or logical data into a smaller array 
in a packed binary format. 

METHOD 

The unpacked (source) data is treated as an array of unsigned integers. The integer 
words are truncated on the left and only the N low order bits are retained. The N 
low order bits are then placed sequentially, left adjusted, in a packed array word 
until that word is filled. Packing then continues into the next word, etc., until the 
source data is exhausted. 


Since a storage word contains 32 bits, a packed word may contain 32/N data items. 
Note that since only the N low order bits arc retained, the largest integer item that 
will be represented correctly is 2 N - 1. For example, if N - 4, the packed items 
will represent digits from 0 to 15. For a larger integer, the packed item will in 
effect be the modulus of the source item. 
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USAGE 


This subroutine has three entry points. The three entries are PACK, UNPACK, and 
ITEM. To pack data, the Fortran call statement is 

CALL PACK (L, M, I, N) 

where 

L is the name of the array containing the source data . 

M is the name of the array containing the packed data . 

I is the number of data items in L. 

N is the number of low order bits to be retained. 

The array L should be dimentioned I . 

The array M should be dimentioned |(I-l)/[32/N]| + 1, where [ ] denotes integer part 
To unpack data, the Fortran call statement is 

CALL UNPACK (L, M, I, N) 

where the arguments are as listed above. 

I may be less than the actual number of items in the packed array. 

Packed data in the array M is unpacked and placed right adjusted in the array L . 

(The unused high order part of the word is cleared.) 

The third entry |K>int to the routine may be used to recover a single item from the packed 
array M . It is called by the Fortran statement 

J = ITEM (M, I, N) 

The Ilh item in the (Kicked array M is returned to the calling program. 
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ADDITIONAL INFORMATION 


If [32/N] is not an even integer, some low order bits in a packed word are unused. 
For example, if N = 6 the word may contain 5 items and the last 2 bits are unused. 
The 6th item will then start at the beginning of the 2nd word. 
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SUBROUTINE PDCSTI 














ROUTINE PERFI 





















SUBROUTINE PLOT 


IDENTIFICATION 

UM PLOT, Drawing of Graphs by Use of the Printer 
360/Assembler Language 

Ames Modification of SHARE Library Routine UM PLOT 
PURPOSE 

This subroutine is used for the purpose of drawing plots, along with the printing of the 
usual type of numerical output, by use of the printer. 

PRELIMINARY REMARKS 

Several changes have been incorporated in the FORTRAN IV version of UM PLOT . 

The maximum width of the plot has been increased from 101 columns to 119 columns. 
The original program included entries for use in SAP and MAD coded routines, whereas 
the present version may be entered only from FORTRAN IV or MAP coded programs. 

METHOD 

A region of core is treated here much as a piece of graph paper. This region of core 
is called the "image region." The image region is cleared, and then a grid, consisting 
of I's and -'s, with +.s at grid intersection points, is formed. The program will place 
any given BCD character at the appropriate place in the image region, corresponding 
to an ordinate — abscissa pair. Each point is written in the image region independently 
of those previously written, and so data to be plotted need not be sorted. Any number 
of points (consistent with the specified size of the image) may be plotted, with any 
Hollerith plotting character whatever. Points which fall on previously plotted points 
replace the latter, and points which fall on a grid line replace the grid line character. 
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Points which lie outside of the specified grid limits are not plotted. When all desired 
points have been placed in the image region, the latter is written out onto a standard 
BCD tape (i.e., tape 6, 7, 9, or 11) for subsequent printing. 

USAGE 

This subroutine has four main entries and two auxiliary entries. The four main 
entires are PLOT 1, PLOT 2, PLOT 3, and PLOT 4. Each performs a specific 
function, and normally they arc taken in the order listed above. Exceptions to the 
normal sequence are discussed below. The two auxiliary entries are OMIT and 
PLTAPE. The first of these is used for the purpose of causing portions of the grid 
to be deleted, and the second is used if it is desired to output on a tape other than 
logical tape 6. 

Each of the entries is discussed below in detail, following which the calling sequence 
arguments are defined. It may be noted that the four main entries can be taken by 
use of either a standard CALL statement le.g., CALL PLOT 1( )] or an arithmetic 

statement [e.g., R = PLOTl( )] . The advantage of the latter is that if certain error 
conditions arise, they can be detected by interrogation of R, whereas the programmer 
has no way to detect an error condition if the CALL type entry is used. The details 
concerning error conditions and the interrogation of R will be found in Section D 
to follow. 

A. The Four Main Entries 


CALL PLOT 1 (NSCALE, NHL, NSBH, NBL, NSBV) 


or 


R - PLOT 1 (NSCALE, NHL, NSBH, NBL, NSBV) 
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This entry is used to set up grid spacing and the total length and width of the graph. 

The location of decimal points, and the scale factors (powers of 10) for values of the 
ordinate and abscissa to be printed along the axes of the plot are also specified. If 
both standard grid and standard scale factors are desired (to be described subsequently), 
then this entry need not be taken. If several plots are to be printed, all having the same 
scale factors and grid specifications, then this entry need only be taken one time. 

CALL PLOT 2 (IMAGE, XMAX, XMIN, YMAX, YMIN, IDIM) 


or 


R = PLOT 2 (IMAGE, XMAX, XMIN, YMAX, YMIN, IDIM) 

This entry clears the image region and prepares the grid lines of I’s and -'s, with + ’s 
at grid line intersection points. It establishes internally formula for computing the 
location in the image region that corresponds to a given abscissa - ordinate (X., Y.) 
pair, based on maximum and minimum values as entered through the calling sequence. 

CALL PLOT 3 (BCD, X, Y, NDATA) 

or 

R = PLOT 3(BCD, X, Y, NDATA) 

This entry causes a specified Hollerith plotting character to be placed in the appropriate 
place in the image region for each of the abscissa - ordinate pairs, which are stored 
in arrays X and Y. This entry may not be taken unless entry PLOT 2 has been taken 
previously. This entry may be taken repeatedly, if desired, in order to write several 
sets of data in the image region before it is read out on tape. 


CALL PLOT 4 (NCHAR, LABEL) 
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or 


R = PLOT 4(NCHAR, LABEL) 

This entry causes the contents of the image region to be written out on logical tape 6 
(unless a different tape has been specified by use of the entry PL TAPE, discussed 
later). The topmost line of the graph will appear one space below the last line 
previously printed. The ordinate label is specified, and it will appear to the left of 
the graph. Abscissa labels may be printed above or below the graph by use of standard 
printout statments. The entry PLOT 4 can be taken repeatedly to obtain several copies 
of the same graph, if desired. The entry PLOT 2 must have been taken at least once 
prior to the entry PLOT 4. It is permissible to alter a graph (in the image region) by 
use of the entry PLOT 3 and then print the result using PLOT 4, without returning to 
the entry PLOT 2. 

B. The Arguments For The Four Main Entries Are Described Here 

Note that certain of them may be either integers or floating point quantities, as for 
example NHL (integer) or HL (floating equivalent of NHL). 

NSCALE is an array of dimension 5 that supplies the subroutine with grid and 
scale factor information 

NSCALE(l) = 0, standard grid and scale factors (see note (a), to follow) 

* 0, grid and scale factors are as defined in NSCALE (2) - NSCALE (5) 

NSCALE(2) = I, scale factor such that printed values of the ordinate are 10* times 
the actual values 

NSCALE(3) = J, J digits will appear to the right of the decimal point in printed 
ordinate values (J < 8) 

NSCALE(4) = K, scale factor such that printed values of the abscissa are 10 K times 
the actual values 
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NSCALE(5) = M, M digits will appear to the right of the decimal point in printed 
abscissa values (M < 8) 

NHL (or HL) is the number of horizontal grid lines (NHL > 0) 

NSBH (or BH) is the number of spaces between horizontal grid lines 
(NSBH > 0) 

NVL (or VL) is the number of vertical grid lines (NVL > 0) 

NSBV (or SBV) is the number of spaces between vertical grid lines 
(NSBV >0, and NSVB*NVL < 119) 

Note (a) . Standard scale factors correspond to values of I, J, K, and M of 0, 3, 0, 3, 
respectively. A standard grid is available which is 101 columns wide starting at 
column 13, and 51 lines long. It has 10 vertical grid lines and 5 horizontal grid lines, 
with 10 spaces between both horizontal and vertical grid lines. If both the standard 
scale factors and standard grid are desired, then the PLOT 1 entry need not be taken. 
It should be noted, however, that if PLOT 1 has been entered for the purpose of setting 
up nonstandard conditions, then the latter prevail until PLOT 1 is reentered with 
different arguments. 

Any combination of vertical and horizontal grid lines may be specified, but the vertical 
grid always starts at column 13. It may extend as far to the right as column 132. The 
length of the grid is limited only by the dimensions of the image region in core. 

Note (b) . Integers are printed for the ordinate and/or abscissa scales if J < - 1 
and/or M ^ r* 1 . 

Note (c). If a scale factor is such that overflow or underflow would occur, then the 
scale factor is treated as zero. The subroutine may shift abscissa scale printout in 
order to accommodate all of the desired numbers. If the value of an ordinate or 
abscissa is too large to be printed in the allowed space to the left of the graph it will 
be truncated from the left. 


C-40 



IMAGE (or AIMAGE) is an array, dimensioned IDIM, which is used as the 
imago region by the subroutine 

XMAX is the value of the abscissa at the rightmost grid line 

XMIN is the value of the abscissa at the leftmost grid line 
(XMIN < XMAX) 

YMAX is the value of the ordinate at the uppermost grid line 

YMIN is the value of the ordinate at the lowermost grid line 
(YMIN < YMAX) 

IDIM is the dimension of the array IMAGE, where IDIM = N*(NSBH*NHL + 1) 
and 

N = rounded up for the IBM 7094, or 
6 

N = ~t rounded up for the IBM 360 
4 

and where 

K = NSBV*NVL + 1 

(The square brackets in the formula for N signify "integral value.") 

Note (d). Set IDIM equal to at least 867 for the standard grid. (1326 for 360). 

BCD is the Hollerith plotting character, any character whatever (see 
note (e), to follow) 

X is the array (or single location) that contains the abscissa of the points to 
be plotted 

Y is the array (or single location) that contains the ordinates of the points 
to be plotted 

NDATA (or DATA) is the number of points to be plotted (NDATA > 0) 
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Note (e). The plotting character may be loaded into cell BCD by use of a DATA 
statement, that is, 

DATA BCD/1 H*/ 

or, alternatively, it may be entered as a Hollerith literal in the PLOT 3 entry state- 
ment, lor example, 

CALL PLOT 3 (1H*. X, Y, NDATA) 

(The arithmetic statement entry R = PLOT 3 ( ) may not be used in the latter case. ) 

Note (f). If it is desired to write a single point at a time into the image array, set 
NDATA equal to 1. 

N CHAR (or CHAR) is the number of Hollerith characters, including blanks, in 
the ordinate label (N CHAR £ NHL*NSBH + 1) 

LABEL is an array which contains the Hollerith characters that constitute the 
ordinate lable to be printed along the leftmost grid line. (See note (g), below) 

No to (g). The ordinate label can be entered in array LABEL by use of the DATA 
statement, that is, 

DATA (LABEL (J), J = 1, 3)/l7HbbbORDINATEbLABEL/ 

Alternatively, it can be loaded as a Hollerith literal in the PLOT 4 entry statement, 
for example, 

CALL PLOT 4 (17, 1 7 HbbbORDINAT EbL A BEL ) 
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(The arithmetic statement entry, R = PLOT 4 ( ), may not be used in the latter 

case.) 

R (See Section D, to follow) 

C. The Two Auxiliary Entries and Their Arguments 
CALL PL TAPE (NTAPE) 

This entry is used, prior to PLOT 4, if it is desired that the output be on a tape other 
than tape 6. Here, NTAPE is the tape number upon which the output is to take place 
(7, 9, or 11). The output tape number remains as set by this entry until PLTAPE is 
called again with a different value for NTAPE. 


CALL OMIT (NARG) 


This entry causes certain portions of the graph to be deleted. It is taken prior to the 
entry PLOT 4. The settings for NARG are tabulated below 


NARG Effect 

1 Numerical values of the abscissa 

are not printed 

2 Numerical values of the ordinate 

are not printed 

3 Combines the effect of NARG = 1 

and NARG = 2 

4 The complete bottom horizontal 

grid line is deleted 

5 Combines the effect of NARG = 1 

and NARG = 4 

6 Combines the effect of NARG = 2 

and NARG = 4 

7 Combines the effect of NARG = 1 

NARG = 2, and NARG = 4 
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D. Error Conditions 


If arguments are incompatible with certain restrictions, then the message 

I PLOT 1, or 
PLOT 2, 
etc. 

is printed, thus indicating the entry where the improper entry appears. If such errors 
occur in PLOT 1 or PLOT 2, subsequent entries into PLOT 3 and PLOT 4 are deleted 
with no further comment. The argument restrictions are 

NHL > 0 

NSBH > 0 

NVL >0 

NSBV > 0 

NSBV * NVL £ 119 
XMAX > XMIN 
YMAX > YMIN 


BCD must be a single left-adjusted Hollerith character 


If the user attempts to execute PLOT 3 or PLOT 4 without having previously executed 
PLOT 2, (or without execution of PLOT 2 subsequent to the execution of PLOT 1), 
the comment 


NO PREVIOUS PLOT 2 


will be printed. 

If the arithmetic statement (rather than the CALL statement) is used for the four main 
entries, then the user may take appropriate action in the case of such errors as would 
lead to the printouts described above. An error in the arguments, or one due to the 
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unsuccessful completion of an earlier entry, will cause a + 1.0, +2.0, + 3.0, or 
+ 4.0 to be loaded in cell R for entries PLOT 1, PLOT 2, PLOT 3, or PLOT 4, 
respectively. Cell R contains + 0.0 if no error condition arises. The user simply 
tests R following each attempt to enter the subroutine via PLOT 1, PLOT 2, PLOT 3, 
or PLOT 4. 

If any points are not plotted by PLOT 3, then the number - 3.0 will be found in R . 
This might arise if points lie outside the stated minimum and maximum limits of the 
ordinate and abscissa, and need not be considered an error. 
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SUBROUTINE PRINTI 
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SUBROUTINE REUSE 
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SUBROUTINE REVLUS 




































os- 


o 





SUBROUTINE SHIFTS (Cont. ) 
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GH 


SET NOP = 1 
IF NO CHANGES 
ALLOWED IN 
PROGRAM 


CALL CONSTR 


t 

CHECK IF INPUT DATA 
MEETS PROGRAM 
CONSTRAINTS 

OUT = 
FALSE 





SETUP DEV. COOT 
CONSTRAINTS ON 
MISSION PROGRAMS 
(NCS = NUMBER OF 
SUCH CONSTRAINTS; 


NCSTR = NCSTR -► NCS 


CHANGE INPUT 
PROGRAM REFERENCE 
NUMBER TO INTERNAL 
REFERENCE NUMBER 


CALL INPUT 

TITLE 

NCSTR 

LEVEL 

NPROG 

ISTRT 

KPROG 

I FIN 

KODE 

MAXITR 

CS 

FIXED, 

PMAX, 

PMIN, ACCL, EXT j 



1 

CALL 


CALL 

1 

LIST C 


PLOT 1 


NO 


WHITE 


NUMBER OF CONSTRAINTS 
HAS EXCEEDED 90 


— 

INITL 

K LIZE 

YE^ 
Y (I 

LR (I) 

— 


DETERMINE HOW MANY 
LAUNCH VEHICLES ARE 
USED AND ASSOCIATE 
NEW REFERENCE NUMBER 
DIRECTLY WITH APPLICABLE 
MISSIONS 


CNTRVL = • 

OVER SMOOTHING 
INTERVAL 




WR 

ITE 

(1) LAUNCH VEHICLE 
NUMBER 

(2) STAGE COMPONE 
VEHICLE 

(3) AVERAGE RECUR! 
LAUNCH VEHICLE 

NEW REFERENCE 
N'TS OF LAUNCH 
RING COST FOR THAT 



STORE INITIAL 
VALUES OF 
INPUT VARIABLES 


CALL 


AFRMT 


CALL REVLUS 


CONVERT LAUNCH VEHICLE NEW , 
REFERENCE NUMBER IN I FORMAT 
(IVEH) TO A FORMAT (VNAM) 


SUBROUTINE SMOOTH 
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SUBROUTINE SMOOTH (CONT.) 




















IS PRESENT 
RMS < RMS 
VALUE AT BEGINNING 
OF THIS PROGRAM 
CHANGE ? 



DOES RMS VALUE AT 
END OF ITERATION « 

RMS VALUE AT BEGINNING 
OF ITERATION? 


SUBROUTINE SMOOTH (CONT.) 
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SUBROUTINE STGNMI 





















SUBROUTINE TCOSTS 
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FOR EACH TEAR, 

CALCULATE 

STATISTICAL 

PARAMETERS 

ASSOCIATED 

WrTH TOTAL 

COST 


/goto\-, no 



[calculate TOTAL COSTS I 
I FOR EACH YEAR 

TOTAL « W + FIXED 
Z PROGRAM COSTS 
+ FIXED COSTS 


V 11 J been 

V V CONSIDERED? I 



■SB 

■ 

| 

m 



TRUE 


WRITE 



PROGRAM 
NUMBER , 
NAME.TOTAL 
PROGRAM 
COSTS BY 
YEAR 


NO 


HAVE ALL LAUNCH 
VEHICLES ASSOCIATED 
WITH THIS PROGRAM 
BEEN CONSIDERED ? 


WRITE 



CALCULATE NUMBER 
OF LAUNCHEVYEAR 
FOR THIS PROGRAM 
FOR EACH ASSOCIATED 
LAUNCH VEHICLE 
= XLV SUM 


LAUNCH VEHICLE 
REFERENCE 
NUMBER BELOW 
PROGRAM COST 
FOR YEAR IN WHICH 
LAUNCH OCCURS 


SUBROUTINE TCOSTS (Cont. ) 
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NO 



o 


DETERMINE 
TOTAL NUMBER 
OF VEHICLES USED 
OVER ENTIRE MISSION 
PLAN FOR EACH 
VEHICLE 


TVEH « X VYTR (J. I) 
















Appendix D 
PROGRAM LISTING 


D. 1 DESCRIPTION 

A compile- and- save Fortran listing of each major subroutine in the optimal assignment/ 
budget smoothing program is included in this section. Storage requirements for each 
subroutine are listed on the output along with the code name under which the subroutine 
was saved. Total storage requirements are listed at the beginning of the sample case 
presented in Appendix B. Comment cards describing the logical function of each sub- 
section and defining any variables whose names are not mnemonic are liberally distri- 
buted throughout the deck so that new users may readily become familiar with the 
programs . 

Subroutines INPUT and PLOT are stored for general NASA use. Therefore, no listing 
is included here; however, a description of each is provided in Appendix C for com- 
pleteness. Subroutines AFRMT and PACK are written in 360 assembler language, so 
the listings are provided in that language . 

Labeled common blocks were used for storage whenever possible to avoid long argument 
lists for each subroutine. These blocks are found at the beginning of each listing. Sub- 
routine ASSIGN lists all subroutines in which each common block appears. The block 
labeled SCRACH stores variables only required in that subroutine or related sub- 
routines, so these storage locations may be used for storing different variables 
in the next subroutine. All other labeled common blocks contain variables 
used by the same name in .several subroutines. 

The listings are presented in alphabetical order according to subroutine name for easy 
reference. The main subroutine is listed under the name MAS TER , 
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D. 2 COMPILE -AND -SAVE LISTING 
The compile-and-save listing follows. 


EXTERNAL SYMBOL DICTIONARY 

SYMBOL TYPE ID ADDR LENGTH LO 10 

AFRMT SD 01 000000 OOOOAO 


L(IC OBJECT CODE ADORl AOOR2 STMT SOURCE STATEMENT 


000000 





i 

AFRMT 

CSECT 



000000 





2 


USING 

*.15 

REG 15 FOR BASE 

000000 

5020 

001C 


0001C 

3 


ST 

2,28(0,13) 

SAVE REG 2 

000004 

9812 

1000 


00000 

A 


LM 

1,2,011) 

LOAD ADDRESSES OF ARGS 

000008 

5810 

1000 


00000 

5 


L 

1,010,1 ) 

DATA TO REG 1 

000 ooc 

AE 10 

F038 


00038 

6 


CVD 

1 , WORK 

CONVERT TO DECIMAL 

000010 

F332 

2000 

F030 00000 

00030 

7 


UNPK 

■ 0( A, 2 ) , WORK+5 ( 3 ) UNPACK A DIGITS 

000016 

96F0 

2003 

00003 


8 


01 

3(2),X'FO' 

INSERT ZONES 

0000 l A 

A110 

OOOA 


00004 

9 


LA 

1 , A 


ooooie 

95 FO 

2000 

00000 


10 

LOOP 

CLI 

0(2), C'O' 

SCAN OUT LEAOING ZEROS 

000022 

A770 

F032 


00032 

11 


BNE 

RETURN 

000026 

92A0 

2000 

00000 


12 


MV I 

0(2), C' • 

INSERT BLANK 

00002A 

A120 

2001 


00001 

13 


LA 

2, 1(0, 2) 

BUMP POINTER 

00002E 

AGIO 

FOIE 


000 1E 

1A 


BCT 

1 .LOOP 

limit to a characters 

000032 

5020 

001C 


0001C 

15 

RETURN 

L 

2,26(0, 13) 

RESTORE REG 2 

000036 

07FE 




16 


BR 

1A 

RETURN 

000038 





17 

WORK 

DS 

D 







16 


END 
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CROSS-REFERENCE 


SYMBOL 

LEN 

VALUE 

DEFN 

REFERENCES 

AFRMT 

OOOOl 

000000 

0001 


LUMP 

00004 

0000 1 E 

0010 

0014 

RETURN 

00004 

000032 

0015 

0011 

WORK 

00008 

000038 

0017 

0006 0007 


NO STATEMENTS FLAGGEO IN THIS ASSEMBLY 
32 PRINTEO LINES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST.NCAL 

VARIABLE OPTIONS IISEO - S IZEM 12 6976 »2A 576 I DEFAULT OPTIONIS) USED 

IEWOOOO NAME MUX02ATI R ) 

#***M0X02AT NOW REPLACEO IN OATA SET 
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FORTRAN IV G LEVEL li MOD 4 


ASSIGN 


DATE = 71312 


17/22/36 


OOOl 


0002 

0003 

0004 

0005 


0006 

0007 


0008 


0009 


0010 


0011 


0012 


0013 


0014 


0015 


0016 


0017 

0018 
0019 
00 20 
0021 
00 22 
002 3 

0024 

0025 

0026 
0027 
00 28 

0029 

0030 

D-4 


SUBROUTINE ASSIGN 


THIS PROGRAM GENERATES THE LEAST COST ASSIGNMENT OF LAUNCH 
VEHICLES TO SPACE MISSIONS. A BRANCH AND BOUND TECHNIQUE IS USEO 
TO REDUCE THE COMBINATORIAL COMPLEXITY OF THE PROBLEM. SEVERAL BRANCHES 
ARE CREATED AT EACH NODE. ONE OF THE BRANCHES EXCLUDES THE NEXT 
Cll c T AND THE OTHERS ASSUME EXPENDITURE OF A NtlN-RECURRING COST 
HUH 1-2 YEARS OF SUSTANING COST ADDED AT EACH NODE, 
c PENALTY FUNCTIONS ARE USED TO SHARPEN THE LOWER BOUND. 

c *»,*(HIS VFRSION USES RATE EFFECTS IN RECURRING COSTS**** 
c ****«TOIS VFRSION INCORPORATES PAD COSTS AND REUSABLE PARAMETERS****** 

C 

DOUBLE PRECISION NAME 
REAL NPERPD 
LOGICAL EXT.ACCL 

INTEGER*/ YDPL ,N SYR ,N SFX < NRFX . NYR SS T , NSTRFX ,NPROG. K PROG *KODE , 

1 NYRSFX, KODEM.KOOESP, Nil, NBY, MODE. NOB, FINISH.NSTG.NFML.NFMU.KODS, 

2 MAS.LARS.LABF, LABI , LSA ,NYS,KODEF , LST , MST, IST,JST,KST , VEH.NYO, 

3 NMULT .NONREC, I S,MAT,LYR,LETT,LYD,M!N,NVS,MRV,NRP,NYP,KODEP, 

A I VEHA.NTR I P,NPLS,NRK,MR , NPSTG t NPAD , NPFAM , NF S .NPINTL .NPINTU.MAPSt 
5 MAPF.MAPI ,K0UT,LTR,K00FV,NINTYR,NTGYTR,MAF,MA!C 


STORAGE FOR TCC1ST, ASSIGN. AND MASTER AND SMOOTH, DATINS 
COMMON/SAVFR/ RFIXOI 12,84) 

STORAGE FOR DFCISN, MATCH, PRINT AND ASS I GN , DAT INS 

COMMON/ SAVDMP/ NFAM , K FL AG , FAM( 30) ,KODEF ( 30) ,FMNRI 30) , FMSUS I 30 1 , 

1 JST I 30) , YDF ( 30) ,LSA< 401 , SNR (40) , NYS I 40 ) . D I NT ( 4 0 ) , S I NT I 40) ,KST I 40 ) , 

2 YOU 40) , YDS! 40) , I ST I 40) .FMSLSI 30,2),SUSLS!40,2),SINTLSI40,2), 

3 LST ( 30 ,5 ) , YDPF I 30, 5) ,MST I 30, 101 ,YDPS( 30, 10) 

STORAGE FOR ASSIGN, STGNUM, AND REUSE , DAT I NS , COMPARE .MASTER 

COMMON/ SAVSAR/COR.POJI 3),SRJ13,3) ,NUI40) , NBY 140) ,NOB (40) ,RINT 140) , 

1 PLCINT (401 ,XLT(40I , PLCTI 40) ,UPPI 40) , TAT 1 40) ,TAMT ( 50 ( , SR ( 40 , 3 ) , 

2 MODE ( 40,3 I ,PLC( 40,3 ) 

STORAGE FOR MAST ER, ASSIGN, DEC I SN, STGNUM, SMOOTH, AVAIL, MATCH, PR INT, CAP ABL, 
AND OUTPUT AND POCST I , DATINS, COMPARE , TCOSTS 
COMMON/SAVE 1/ EINISH,NSTG,NCI,ILY,LABF( 30),LABS(40),LABI(40>, 

1 NEML(40),NFMU(40I,KODS(40),STSI41),STG(40),VLR(50),WPR(50) , 

2 RPLM(50),MAS(40,3), RXO( 12,50) 

STORAGE FOR MASTER, ASS IGN, SMOOTH, TCOST, OUTPUT, SHI FT, CONSTR.DAT INS 

commun/sav2/ext,accl,knstg,knfam,knci ,knp,knmis,jflag,tref,ncstr, 

1 PMAX,PMIN,ISTRT,IFIN,MAXITR,MITR,K0DESP(6),TITLE( 10), LEVEL (20), 

2 CNTRVLI 20) ,F IXEO( 20 ) , KOOEMI 50 ) , NSYRI 50) , NSFXI 50) .NAME! 56) , 

3 YDPL (56) , NRFX (50) ,NYRSST(84( ,NSTRFX(B4) ,NYRSFX( 84) ,SUS( 84 ) ,C ( 84 ) 


PRINT REVALU* TCOST ♦ VEHREC » MATCH I * DAT I NS » COMPARE 

C0MMUN/SAV3/GR0, GUESS, LP,NSOL,MSOL,NP,MOS,NMI^S^NSPR, NPERPD 30), 

^COMMUN/SA V4/ )npFAM( 3o!5 ) JnPI NTL I 30,5) ,NPINTU( 30,5) , 

1 NFS I 40, 4) ,NPSTG(30,10),MAPS(30,10),MAPF(30,10) , MAP I ( 30 , 10 ) , 

2 PFAMD?3o!s , 2 ) , PFAMS (30,5,2),PINTS(3 0 ,5,2),PSTG0(3 0 ,1 0 ,2), 

3 P STGS ( 30 ,10,2) 

■ V -SVSTiSS’, inrsT 

TEMPORARY STORAGE FOR AS S IGN .CHOOZ , STGNUM, LBOUNO, VEHREC , AVA I L , PAOCST 

D4T CUMMUN/TEMP/VNMI2, 250), 1FLAG.KI, NEXT, LOUT.SAVSI 40) ,KOUT ( 40) , 

1 N1NTYR( AO* 20) tNTGYTR< 40*20»2) * RECUR! 60*2.0»Z l 

UVe CO^ON/SCRACH/ IP, IV* IG,MOOX( 3 1 1 5) ,LSXI 5) jgj j* 

1 NPINXU15) .NPSTXI 10I.MSXI 10),LZ(20),PB150),M SNI 50,20), DUM( 1382), 

2 RCOST ( 60) ,RXMI 50) , 1 I ,KNSP,KLCK, IM.DUMMI 4192 ) 


NE XI) = 0 
I FLAG = 0 
KELAG = 0 
IFIFlNlSH.GT.il 
IFIFINISH.GT.il 
KNV * 100 
11 NSTG = 0 
NFAM = 0 
NCI = 0 
NMIS = 0 
NSPR = 0 
NUMD = 1 
NP * 0 
NV = 0 


GUESS « i.75*GUESS 
GO TO 17 



FORTRAN IV G LEVEL 1, MOD A 


ASSIGN 


DATE = 71312 


17/22/36 


0031 

0032 

0033 
00 34 


0035 
00 36 
00 37 
00 38 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

004 9 
0050 
00 31 
0062 

0053 

0054 
0063 

0056 

0057 

0058 

0059 


0060 

0061 

0062 


0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 
0083 


0084 


C LCK = LEARNING CURVE KODE : = 1 IF HAVE LEARNING CURVE EFFECTS: =0 IF NONE 
LCK = 0 
C 

CALL OATINS 
C 

IF(MYRS.EO.O) RETURN 
IF< IM.LT. 01 GO TO 3000 
C 

C ' *«*SET UP MISSION MATRIX BY YEAR*** 

NM * O 

DO 4 I = l.NMIS 
DO 4 J= 1 » MYR S 
IFtMISNI l.JI.EQ.O) G(J TO 4 
NM = NM + 1 

YRLM ( NM 1 = FLOAT ( Ml SN( I , J 1 1 * PBII) 

LETTINM)= I 
LYRINM) = J 
4 CONTINUE 
C 

3000 IF ( GUESS .GT .1.01 GO TO 3005 
GUESS = 1.0E15 
C 

3005 CALL CAP8L1 
C 

16 WRITE (6,200 11 NSTG.NV.NFAM.NCI ,NP ,NM! S ,M YRS, IL Y , GUESS ,NOPT ,NSOL , 

1 GRU, COR 

ir(LCK.EO.O) GO TO 17 
C‘ CALCULATE EXPONENT FOR LEARNING CURVE 
A 1.(102 = At l 10 1 2 . » 

IE IIG.LT.O) GO TO 8030 
0(1 660 I = I ,NSTG 
1)0 660 J- 1 , 3 

IE ( MODE ( I , J I . F 0 . O . AND • PLC ( 1 , J 1 .GT . .00 1 I 
lPLCd.JI « ALOG(PLC( I ,JI I /AL0G2 
660 CONTINUE 

8030 II I Il.LT.O.OR.NCl.EO.OI GO TO 17 
00 680 1=1, NCI 
IFIPLCINTI I1.GT..001) 

1PLC I NT ( 1 1 » AL0G(PLCINT(I11/AL0G2 
680 CONTINUE 
C 

17 IF ( NUMD.EO.OI GO TO 305 
C 


CALL OECSNI 
C 

I F I K FLAG.EQ. 1 I GO TO 1 
C 

305 CALL AVAILI 
C 
C 

CALL STGNMI 
C 

GUESS1 * GUESS 
C 

620 CALL CHOOZS 
C 

IFINEXT. GE.500.0R.GUESS.LT. .0011 GO TO 2 
C IFLAG = NUMBER OF TIMES CHOOZ HAS BEEN CALLED 

IFLAG = IFLAG + 1 

C 

CALL STGNMI 
C 

GUESS = GUESS1 
I FI IFLAG. EO.OI GO TO 1 
I F ( IFLAG. EO. 100) GO TO 2 
GO TO 620 
2 MYRS * 100 
1 KNSTG = NSTG 
KNFAM = NFAM 
KNCI = NCI 
KNP = NP 
K LCK = LCK 
KNMIS = NM I S 
KNV = NV 
KNSP = NSPR 
RETURN 

2001 FORMAT I 1 7H1 NUMBER UF STAGES, 8X , 1 5/ 19H0NUMBER OF VEHI CLES ,6X , 15/ 

1 1 9H0NI IMRFR OF FAMILIES, 6 X , I 5 /2BH0NUMBER OF 1NTFGRATI0N COSTS, 12/ 
X 24H0NUMBER OF PAD C OMPL EXES , 4X , 1 2/ 

2 19H0NUMBER OF MISSIONS, 6X , I 5/16H0NUMBER OF YEARS, 9X, 15/ 

3 17H0LAUNCH BASE YE AR , 8X , I 5/15H0T UT Al EST I MATE , F 17. 2 /14H00PT ION N 

4UMBER, 1 1 X , 15/ 20H0 NUMBER OF SOLUT 10NS.5X , I 5/ 1 7H0INFLAT ION FAC 

5T0R ,12X,F4.3/1 2H0C0RR ELAT ION ,17X,F3.2) 

END 



FORTRAN IV G LEVEL It MOD 4 


ASSIGN 


DATE = 71312 


17/22/36 


TOTAL MEMORY REQUIREMENTS 0008DE BYTES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL, MAP 

VARIABLE OPTIONS USEO - SIZE-I 126976,24576) DEFAULT OPTIONIS) USED 


1EH0000 

NAME MOX02ASIRI 

IEW0461 

DAT INS 

IEW0461 

CAPBLI 

IEW0461 

IBCUM= 

IEW0461 

DECSNI 

1 EW 0461 

AVAIL I 

IEW0461 

STGNMI 

I EW 046 1 

CHUUZS • 

IEW0461 

ALUG 


MODULE MAP 

ENTRY 

NAME LOCATION NAME LOCATION NAME LOCATION 


ASSIGN 

00 

806 

SAVER 

8E0 

FCO 

SAVUMP 

1BA0 

1ARC 

SAVSAR 

2060 

A5C 

SAVE1 

37C0 

EGA 

S AV2 

A788 

FEO 

SAV3 

5768 

980 

SAVA 

60E8 

3188 

SVACAV 

9270 

BA8 

SAVALL 

9DB8 

3 A 1C 

TEMP 

071) 8 

AllO 

SCRACM 

11868 

6 A60 


ENTRY AOURESS 00 

TOTAL LENGTH 18348 

****M0X02AS NOW REPLACED IN DATA SET 


CONTROL SECTION 

NAME ORIGIN LENGTH 
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17) 


OS/360 FORTRAN H 


DATE 71.312/16.53.56 


COMPILER OPTIONS - NAME= MAIN. 0PT=02, L !NECNT=AA, SOURCE .BCO.NOL 1ST, NOOECK. LOAD, NOMAP.NOEOI T, ID. NO 


ISN 

0002 

C 

SUBROUTINE AVAIL1 

*** aoo availability to vehicle capability matrix*** 

ISN 

0003 


REAL NPERPO 

ISN 

0004 


INTEGER *2 NVS ,MRV * NRP, NYP, KODE P , 1 VEHA , NTR 1 P, NPL S.NRR .MR ,KODE V » 

1 FINISH.NSTG.NFML.NFMU.KOOS.MAS.LABS.LABF.LABI ♦ VEH, NMULT .NONREC i 

2 NYO, 1 S.MAT ,LYR, LETT, LYU, MIN, LTR 

I SN 

0005 


COMMON/ SAVE 1/ FINISH, NSTG, NCI .ILY.LABFI 30), LABS! AO) .LABI (AO), 

1 NFML(AO) .NFMU(AO) , KOOSI AO ) , S TSI A I ) , ST G( AO ) , VLR ( 50 ) ,WPR(50), 

2 RPLM(SO) ,MAS(A0,3), RXUI12.50) 

ISN 

0006 


C0MMON/SAV3/GR0.GUESS, LP.NSOL.MSOL.NP, MOS ,NM 1 S , NSPR .NPERP0I30), 
1 PA0I30) ,LTR(50),PLR(50) ,R0 1 STI 56, A) , ALPI (A, 60 1 

ISN 

0007 


COMMON/ SVACAV/ KNV.NOPT ,KOOEP( 30) .RPLOIAO) , I VEHA I 50 ) ,NTR IP ( 50) , 

1 MPLSI50) .NP.RI50) , MR I 50) ,NVS 1 6 0 ) , MR V I 60 1 , NRP ( 60 ) , B 1 ( 60 ) , 82 ( 60 ) i 

2 63 [ 60) , RAI60I , K0UEVI60) ,NYP( 2,60) ,VMI2,60> 

ISN 

0008 


COMMON/ SAVALL /LCK, SLO, NM.NEXO, NV , NUMD, MYRS,L20PT( B) ,NY01 A6), MAT 1 
1 ) ,SUST( A6) ,OSI A6) ,LYD( A6),Y0I A6>« I SI 102) , LYR ( 252 ) ,L ETT ( 250 1 , 

2 MIN (250) ,YRLM(250),VEH1 A, 60) , NONREC 1 1 20,20) , NMULT I 60, 50) 

ISN 

0009 

c 

COMMUN/TEMP/ VNMI 2, 250) , IFLAG, L2 ( 60) ,DUMI 3603) 

ISN 

0010 


00 39 J * 1 ,NM 

I SN 

0011 


KO * LYR(J) 

ISN 

0012 


L = LETT ( J ) 

I SN 

0013 


00 35 I = l,NV 

ISN 

0014 


L 2 ( 1 ) » 0 

ISN 

0015 


IF( ITEMIVMll.I ),L,1 I.EO.O) GO TO 35 

ISN 

0017 


K * I 

ISN 

0018 


IFILTRILI.E0.2I K • I t NV 

ISN 

00 20 


00 36 M = 1,20 

1 SN 

0021 


1 F ( NUN RFC (K,H) • EO . 0 ) GO TO 37 

ISN 

0023 


NO = NONREC I K ,M ) 

ISN 

0024 


IFf KO.LT.NYO(NO) ) GO TO 35 

ISN 

00 26 


I F ( KO.GT . L YOI NO ) 1 GO TO 35 

I SN 

0028 


36 CONTINUE 

ISM 

0029 


37 L Z 1 II » 1 

ISN 

0030 


35 CONTINUE 

ISN 

0031 


CALL PACK ( L Z , VNMI 1 , J ) , NV ,11 

ISN 

0032 

c 

39 CONTINUE 

NM LESS THAN 181 FOR PRESENT FORMATS 

ISN 

0033 


28A WRITE (6.A000) 

ISN 

00 34 


00 A21 ITER => 1 , A 

ISN 

003 5 


KNM - H1N0( ITER*A5,NM) 

ISN 

0036 


K » 1 £ ( ITER - 1 1 *A5 

ISN 

0037 


285 WRITEI6.A002) < LETT ( J 1 , J * K , KNM ) 

ISN 

0038 


DO A20 I = 1 ,NV 

ISN 

00 39 


IA=VEHI 1, I ) 

ISN 

0040 


IB= VEH( 2,1) 

ISN 

0041 


I C = VEHI 3,1) 

1 SN 

0042 


10= VEH( A, I ) 

ISN 

0043 


00 286 J = K.KNM 

ISN 

0044 


L = J-KC1 

ISN 

0045 


*286 LZILI = ITEM! VNM ( 1 , J ) , I ,1) 

ISN 

0046 


WRITE(6,A100) I,STG< I A ) , STG I IB ) , STGt IC),STG( ID) ,IL2( J) , J*1,L> 

ISN 

0047 


A20 CONTINUE 

ISN 

0048 


ifinm.le.knm) return 

ISN 

0050 


IFI ITER.EO.l) WR I TE 16 , A001 ) 

1 SN 

0052 


IFI ITER.E0.2I WRITE! 6.A003) 

ISN 

0054 


IFI ITER. EO. 3) WRITE (6.A00A) 

I SN 

0056 


A21 CONTINUE 

ISN 

0057 


RETURN 

ISN 

0058 


AOOO FORMAT 1 1H1.3AX.51HV EHICLE/MISSION CAPABII 

1 T Y/A6X.30HU = POSSIBLE, 0 = IMPOSS! BLE ) /1H0, A3X , 101 2H1 ), 

2 10I2H2 ) , 10( 2H3 I.6I2HA I/18H VEHICLE / M ISS I ON ,9X,A( 20H1 2 3 
35 6 7 8 9 0 I.9H1 2 3 A 5//) 

ISN 

0059 


AOO 1 FORMAT ( 1H 1 / 27X ,A ( 2HA ),10(2H5 ),10I2H6 I.10I2H7 ),10(2H8 ) 

1 2H9 / 1 8H VEHICLE / M I SS I ON, 9X , 9H6 7 8 9 0.AI20H 1 2 3 A 5 6 7 

29 0) //) 

ISN 

0060 


A 00 2 FORMAT 1 1H0, 7X , 1 AHM I SS I ON NUMBER, AX.A5I2) 

ISN 

0061 


A003 FORMAT ( 1 HI / ASX ,36(2H1 )/ 27X.9I2H9 ),10(2H0 ),10(2H1 ), 

1 10I2H2 I.6I2H3 )/ 

2 18H VEHICLE / MISSION, 9X.AI20H1 23A567890), 

3 9H1 2 3 A 5//I 

I SN 

0062 


AOOA FORMAT (1H1/ 27X,A5(2H1 )/ 27X.AI2H3 ), 10I2HA ), 10I2H5 ), 

1 10I2H6 ), 10I2H7 1, 2H8 / I8H VEHICLE / MISSION, 9X.9H6 789 

2 A I 20H 123A56789 01//) 

ISN 

0063 


A100 FORMAT 1 1H , I 2 , IX , Al AA , 1 X 1 , 2X, A5I?) 

ISN 

0064 


END 


***** ENO OF COMPILATION *«*»** 



F88-LEVEL LINKAGE 

EOITOR options 


VARIABLE 

OPTIONS USED ■ 

1FW0000 

NAME MOX02AL I R ) 

IFW0661 

ITEM 


1EW0661 

PACK 


IEW0661 

I6CUM* 


CONTROL SECTION 


NAME 

ORIGIN 

LENGTH 

AVAILI 

00 

7 A8 

SAVE1 

7A8 

FC6 

SAV3 

1770 

980 

SVACAV 

2OF0 

B68 

SAVALL 

2C38 

3A1C 

TEMP 

6658 

6110 

LOCATI 

ON REFERS 

TO SYMBOL IN 


DEFAULT OPTION(S) USED 


358 

360 

368 

370 

378 

2U0 

ENTRY AOURESS 
TOTAL LENGTH 


SAVE1 
SVAf.AV 
SAVALL 
ITEM 
1 BCOM= 
SAVALL 
00 
A768 


CROSS REFERENCE TABLE 


ENTRY 

NAME 


LOCATION 


NAME LOCATION 


NAME LOCATION 


NAME 


IN CONTROL SECTION 

SAVE! 

SVACAV 
SAVALL 
iUNRESOLVEO 
SUNRESOLVEO 
SAVALL 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


35C 

366 

36C 

376 

2C8 


SAV3 

SAVALL 

TEMP 

PACK 

TEMP 


SAV3 

SAVALL 

TEMP 

^UNRESOLVED 

TEMP 


***«H0X02AL NOW REPLACED IN DATA SET 


1171 OS/ 360 FORTRAN H 


DATE 71.312/16.30.61 


COMPILER OPTIONS - NAME* MA I N, OPT*02 , LI NECNT=66, SOURCE , BCD, NOL I ST .NODECK , LOAD, NOMAP, NOEDI T , I D, 
ISN 0002 SUBROUTINE CAPBLI 

C VEHICLE DATA IS INPUT 

C the ORIGINAL CAPABILITY MATRIX BETWEEN VEHICLE AND MISSION IS SET UP 
C 


ISN 0003 
ISN 0006 

ISN 0005 

ISN 0006 
ISN 0007 

ISN 0008 
ISN 0009 
ISN 0010 


REAL ISP. LENT .NPERPO 

1 NTtGER *2 LTR.KODEV. NVS.MRV.NRP, NYP.KODEP. 1VEHA.NTRIP.NPLS.NRR. 

1 MR, NPSTG.NP AO, NPF AH, NFS, NPINTL.NPINTU, MAPS. MAPF, MAPI .FINISH. 

2 NSTG, NFML, NFMtJ, KUO S, MAS, LABS, LABF, LABI, VEH.NMULT.NONREC ,NYD, 

3 IS.MAT.LYR.LETT.LYD.MJN.MAF.MAIC 

COMMON/ SAVE 1/ FINISH.NSTG.NCI, I LY, LABF I 30) , L ABS I *-0) , LAB I 1 60 ) , 

1 NFML 1 60) .NFMUI60) .K00SI60) .STSI61) ,STGI 60) ,VLR(90> .WPRI50), 

2 RPLMI 50) .MASI60, 3) , RX0I12.50) 

COMMON/ SAV3 /GRU ,GUE SS .LP.NSOL ,MSOL ,NP,M0S,NMIS,NSPR»NPERPD(30) , 

1 PAOI 30) ,LTR1 50) .PLRI50I .R0ISTI56.6) .ALPII6.60) 

COMMON/ SAV6/ MAFI30.3I, MAIC160.3I, 

* NPAOI 2,60) , NPF AMI 30,5) ,NPINTL130,5),NPI NTUI 30,5), 

1 NFSI60,6),NPSTGI 30, 10) .MAPS (30, 10) .MAPF I 30, 10) .MAPI I 30,10) , 

2 PFAMO(30,5,2l,PFAMS( 30, 5, 2 1 , P INTSI 30 ,5, 2 ) , PSTGDI 30 , 10, 2 ) , 

3 PSTGSI30, 10,21 

COMMON/ SAVALL /LCK,SLO,NM,NEXO, NV.NUMD, MYRS ,L ZOPT (8),NYD(66),MAT(66 
1 1 , SUST 1 66 ) ,DS(66I .LY0I66) , YD I 66) ,IS( 102) .LYRI2521 ,LETT( 250) , 

2 MINI 2501 ,YRLM< 250) , VEH( 6, 60 ) .NONREC ( 120 , 20 ) , NMIILT ( 60, 50 ) 

COMMON/ SVACAV/ KNV ,NOPT , KOOE P I 30 ) , R PLO I 60) , I VE HA I 50 ) , NTR I P I 50 ) , 

1 NPLSI 50) ,NRR( 50) ,MR( 50) ,NVS( 60) ,MRV( 60) ,NRP( 60 ) ,B1 1 60) , U2 1 60 ) , 

2 B 3 1 60 ) , B6 1 60 ) ,KOOEV(60> ,NYP(2,60I ,VM( 2,60) 

COMMON/SCRACH/IP, I V, IG.NPAx ( 2) , NEH( 6) , NSTI 61 ) , THRTI 6 1 ) ,D! AM 161 ) , 

1 TSL(61l,LENT(61),WTFU(61),WTINt61),ISP(61),MZ(50),LZ(50), 

2 NYPX I 2 ) , OUM I 6369 ) 


ISN 

0011 


IF! IV.LT. 01 GO TO 16 

ISN 

0013 


00 2 I * 1,60 

ISN 

00 16 


ALPI ( I, I 1 = .05 

ISN 

0015 


ALP1 1 2 , 1 ) = .20 

ISN 

0016 


ALPI (3,1) = .50 

ISN 

0017 

i 

ALP I ( 6 , 1 1 * .25 

ISN 

00 18 

16 

00 281 J = 1,61 

ISN 

0019 


IF! IV.LT.O.AND.J.GT.KNV) RETURN 

ISN 

0021 


IF( IV. LT.O. ANO.IG.LT. 0) GO TO 27 

ISN 

0023 


IF ( IV. LT.O) GO TO 15 

ISN 

0025 


READ! 5, 106) (NEHIII, I » 1 ,6 1 , B1 ( J) ,621 J ) ,B3( J ) ,B6I J ) , KOV 

ISN 

0026 


IF(KOV.EO.O) GO TO 5002 

ISN 

0028 


KOOEV(J) * KOV 


D-8 



ISN 

0029 


00 16 K a 1*4 

I SN 

00 30 

16 

VEH(K,J) e NEH(K) 

I jN 

0031 


RE ADI 5*108) NSX , MVX * NPX * (NPAX(I) 

ISN 

0032 


DO 17 I » 1,2 

ISN 

0033 


NPAOI I * J ) « NPAX ( I I 

I SN 

0034 

17 

NYPI I , J ) = NYPXI I ) 

ISN 

0035 


NVS(J) a NSX 

ISN 

003 4 


MRVIJI = MVX 

ISN 

0037 


NRP(J) * NPX 

I SN 

0030 


IF (JKEY.EQ.O) GO TO 15 

I SN 

0040 


READ (5*114) ( ALP I C I ,J) , 1*1, 4| 

ISN 

0041 

15 

DO 26 I B 1,4 

I SN 

0042 


ifivehu , j) .eo.o> go to 27 

ISN 

0044 


DO 25 K = 1 ,NSTG 

ISN 

0045 


IF(VEH(I , J) .NE.KOOSt KM GO TO 25 

ISN 

004 7 


VEH ( I * J ) oK 

ISN 

0040 


GO TO 26 

I SN 

0049 

25 

CONTINUE 

ISN 

00 30 

26 

CONTINUE 

ISN 

0051 

27 

NV = J 

ISN 

00 52 


IF (IV.LT.O. AND. UP. IT. 0. OR. NP.€0.< 

ISN 

0034 


DO 9008 I = 1,2 

ISN 

0055 


IF (NPAD( I* J) .EO.O) GO TO 9000 

ISN 

0057 


DO 9009 K = 1 ,NP 

ISN 

0058 


IF (NPADU , J) .NE.KODEP(K) ) GO TO 

ISN 

0060 


NPAO( I , J) ■ K 

ISN 

0061 


GO TO 9008 

ISN 

0062 

9009 

CONTINUE 

ISN 

0063 

9008 

CONTINUE 

ISN 

0064 

9007 

Cl = Bl(J) 

ISN 

0065 


C2 = B2IJ) 

ISN 

0066 


C3 = B 3 ( J ) 

ISN 

0067 


C4 = B4 ( J ) 

ISN 

0068 


DO 2 B I = UNMIS 

ISN 

0069 


NM1JLT ( J, I ) = 1 

ISN 

0070 


LZ(I ) = 1 

ISN 

00 71 


IF ( I VEH A ( I ) .EO.O.OR.I VEHA( D.EO.I 

ISN 

007 3 


GO TO 8024 

ISN 

00 74 

21 

VLXaVLRU 1-25573. 

ISN 

0075 


IFI VLX.GE.C4-.01) GO TO 8024 

m* 

0077 


WP=EXP( C 1-C2*VLX-C3/ (C4-VLX ) ) 

rsN 

0078 


IFIRPLMI I). LT. 1.0. OR. IVEHAC U.NE. 


1-1,21, JKEY 


GO TO 9007 


GO TO 21 


GO TO 23 


ISN 

0080 


DO 22 JJ » 1,9 

ISN 

0081 


JJJ - 5-JJ 

ISN 

0082 


IFIVEHIJJJ , J) .EO.O) GO TO 22 

ISN 

0084 


LL = VEH I JJJ ,J) 

ISN 

0005 


IFIRPLO(LL) .LT..001) GO TO 8029 

ISN 

0087 


GO TO 23 

ISN 

0088 

22 

CONTINUE 

ISN 

0089 

23 

IFIHP.GE.WPRI I ) 1 GO TO 29 

ISN 

0091 


IFIHP.LE..001.0R.MPRI I I/HP.GE.100. ) GO TO 8029 

ISN 

0093 


NMULTIJ.II = INTI WPR ( I ) /HP C .99) 

ISN 

0094 


IFINMULTIJ.n.GT.NTRIPID) GO TO 8029 

ISN 

0096 

29 

IF (N0PT.NE.3.0R. IVEHA1 D.NE.O) GO TO 28 

I SN 

0098 


IFINPLSm .EO.O) GO TO 8023 

ISN 

0100 


IFINPLSI II.NE.NVSI J) 1 GO TO 8029 

I SN 

0102 

8023 

IF (NRRI D.GT.NRPI Jl) GO TO 8029 

ISN 

0104 


IF (MR( I ). EO.O. OR. MRVUI.EO.il GO TO 28 

ISN 

0106 

8029 

LZU ) = 0 

ISN 

0107 

28 

CONTINUE 

ISN 

0108 


CALL PACKILZ.VMI 1,J),NM1S,1) 

ISN 

0109 

281 

CONTINUE 

ISN 

0110 


WRITEI6.113I 

ISN 

0111 

99 

RETURN 

I SN 

0112 

5002 

IFIN0PT.NE.2) RETURN 

ISN 

0114 

' MR ITE I 6, 1 1 1 ) 

C CARDS MUST 86 IN SAME ORDER AS INPUT STAGE CARDS 

C ALL STAGES NOT TO BE USED IN MATCHING SCREEN MUST BE AT END OF OATA 

ISN 

0115 


NT G = NSTG C 1 

ISN 

0116 


DO 30 1 = 1 ,NTG 

ISN 

0117 

READ! 5, 109) J,NST 1 1 1 , THAT III, 01 AM (11, TS LID ,LENTt 1 1 ,WTFUt II, 
1 WTINI I) , ISPI 1 ) 

ISN 

0118 


IFI J.EO.OI GO TO 31 

ISN 

0120 

WRITE (6, 1121 I.NSTI I) , THRTI 11 ,DI AMI I ) , TSLI 1 1 .LENT C I ) ,MTFU(I),MTIN 
III), ISPI!) 

ISN 

0121 


IFI J.NE.KOOSI III GO TO 5005 

ISN 

0123 

30 

CONTINUE 

ISN 

0124 

31 

CALL MATE I 

ISN 

0125 

5004 

RETURN 

ISN 

0126 

5005 

MR I TE 1 6, 1 10 ) 

ISN 

0127 


RETURN 

ISN 

0128 

106 

FORMAT 1912,9613.6, 18X, 12! 

ISN 

0129 

108 

F0RMAT(3X,3I2,9I3,58X,I 1) 

ISN 

0130 

109 

FORMAT! 19, 15, 7F 10,0) 



ISN 0131 
ISN 0132 


110 FORMAT! 27H0ST AGE CAROS IN WRONG ORDER) 

111 FORMAT! 1H1.8H STG NST ,9X .4HTHRT ,9X , 4HDI AM,9X, AH TSL ,9X,4HLENT ,9X , 
1 4HWTFU,9X,4HWTIN, 10X.3HISP//) 

ISN 0133 112 FORMAT! 1H0, 214, 7F13. 2) 

ISN 0134 113 FORMAT I28H0M0RE THAN 60 VEHICLES INPUT) 

ISN 0135 114 FORMAT (3X.4F5.2) 

ISN 0136 . ENO 

****** end OF COMPILATION ****** 


F88-LEVEL LINKAGE EOITOR OPTIONS SPECIFIED L I ST, XRE F, MAP ,NC AL 

VARIABLE OPTIONS USEO - SIZE*! 126976,24576) DEFAULT OPTIONIS) USED 

IEWOOOO NAME M0X02CIIR) 

IEW0461 PACK 
IEW0461 MATE I 
IEW0461 EXP 
IEW0461 IBCOH= 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 





NAME 

ORIGIN 

LENGTH 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION 

NAME 

CAPBLI 

00 

B40 






SAVE 1 

B40 

FC4 






SAV3 

l BOB 

980 






SAVA 

2488 

3188 






SAVALL 

5610 

3A1C 






SVACAV 

9030 

BA 8 






SCRACH 

9B78 

6A60 






LOCATION 

REFERS 

TfJ SYMBfJL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL 

SECTION 


220 

SAVE 1 

SAVE 1 

224 

SAV3 

SAV3 

228 

SAV4 

SAV4 

22C 

SAVA 

SAV4 

2 30 

SAV4 

SAV4 

234 

SAVALL 

SAVALL 

238 

SAVALL 

SAVALL 

23C 

SVACAV 

SVACAV 

240 

SCRACH 

SCRACH 

244 

PACK 

SUNRESOLVED 

248 

MATE I 

SUNRESOLVED 

24C 

EXP 

SUNRESOLVED 

250 

I BCOM= 

SUNRESOLVED 

140 

SCRACH 

SCRACH 

148 

SAV3 

SAV3 




ENTRY AOORESS 

00 





TOTAL LENGTH 

10508 






****M0X02CI NOW REPLACED IN DATA SET 


D-10 



FORTRAN IV G LEVEL 1, MOO A 


CHOOZS 


DATE ■ 71312 


7/23/OA 


OOOl 


SUBROUTINE CHOOZS 


C 

OET ERMINE OPTIMUM VEHICLE TO MISSION ASSIGNMENT 

0002 

C 

INTEG£R*2 KOUT,LTR.VEH,NMULT,NONREC,NYD, 1 S,MAT , LYR, LETT, LYD.M IN 
1 M INOPT * MORE iNSAVE fN AD Of NX.NINTYR.NTGYTR 

0003 


REAL NPERPO 

000* 

c 

COMMON/SAV3/GRO,GUESS,LP,NSOL,MSOL,NP,MOS,NMIS,NSPR,NPERPD<30), 
1 PAD! 30) ,LTR150I,PLR( 50) ,R DI STt 36, A ) , ALP I ( A ,60) 

0005 


COMMON/ T,AVALL/LCK,SLO,NM,NEXD,NV,NUMD, MYRS, LZOPT I 8) » NYDI A6 ) ,MAT(' 
1 ) , SUSTI AM ,0S( A6) .LY0IA6) ,YD( A6 I , 1S< 102 ) ,LYR( 252 ) .LETT) 250 ) , 

2 MINI 250) .YRLMI 250) ,VEH( A, 601 .NONRECI 120, 20 ) , NMIILT I 60, 50 ) 

0006 


CUMMUN/VARNCE/KSTAT.VAR 1 I AO) ,VARFI 50) , VARMI 56 ) , FMVAR 1 2 , 30 ) , 
1 F 1 VAR I 3, AO I .PLVARI 3,56) , SVARI 5.A0I 

0007 


COMMUN/TEMP/VNMI 2,250), I FLAG ,K I .NEXT , LOUT, SAVSI AO) .KOUttAO) , 
1 N 1 NT YR 1 AO , 20 ) ,NTGYTRIA0,20,2> , RECUR 1 60, 20, 2 1 

ooo 0 


COMMUN/SCRACH/EXTRA,NAOD,NX,MORE( 10> ,ZKP,WKP,NXKP,LZKP(5> .OUMEIl 
*, A2.LZI A6) ,WI500) .M2I500) , 

1 TOSI5OO),WR(A99),ZI50O),COST(2,25O),MI NOPT 1 2A6.9) .NODE! 5 ,500 ) , 

2 NPOS , *» I GSOI 9) ,ETC 1 9) , 


c 

A NCOS T ,LB,KX,KZ,NSAVE( 10 ) ,K EEP I AO ) ,MZ 1 60) , DUM 

0007 

c 

IHMYKS.GT.10) GO TO 2 

00 1 0 


K I = 1 

0011 


KNEX = MYRS 

00 1 2 


Ml IIJ 7 

00 1 3 


2 K I - 2 

00 1 * 


KNEX = (MYRS * l)/2 


c 

c 

*** INITIALIZE FUNCTIONS *** 

00 15 


7 NEXT * 1 

00 1 6 


NX = 1 

00 17 


KPNX = 10 

0010 


ZKP = 1.0E30 

00 19 


NAOO = 0 

0020 


NPOS = 0 

00 21 


DO 16 I = 1*NUM0 

0022 


16 Lilli = 15 

0023 


CALL PACK! LZ ,N00E (1,1) ,NUMD,4) 

002* 


00 17 I ■ 1,8 

0025 


17 LZOPTI I) <■ 0 

0026 


00 A 00 I • 1,10 

0027 


A 00 MORE! I ) * 0 

0028 


IF(LP.GT.O) WRITE (6,205) 


c 

c 

•«* FIND Will » SUM OF COLUMN MINIMUMS OF FIRST CASE *•* 

0029 


W( 11=0.0 

0030 


W2( 1 ) = 0.0 

0031 


T0SI1I « 0.0 

00 32 


DU 19 J=1,NM 

0033 


COST(l.J) «= 1.0E30 

003* 


COST ( 2 , J ) » 1.0E30 

0035 


IY = LYR(J) 

00 36 


I F ( IY.GT.MYRS) GO TO 325 

0037 


JX = LETT ( J ) 

00 38 


ITR = LTR(JX) 

00 39 


CALL UNPACK ( MZ , VNM( 1 , J ) , NV ,11 

00*0 


0(1 18 1 = 1, NV 

00* 1 


IF ( MZ I I I.EO.OI GO TO IB 

00*2 


X = NMULTI I , JX) 

00*3 


CX = YRLMI J ) *RE CUR ( I ,IY,ITR)*X 

00** 


IF(CX.GE.C0STI2,JI 1 GO TO IB 

00*5 


IFICX.LT. COSTI 1,J) ) GO TO 176 

00*6 


COST ( 2 , J ) = CX 

00*7 


G(l TO IB 

00*8 


176 C0ST(2,J> = COST ( 1 , J ) 

00*9 


COSTI 1, J) = CX 

0050 


MINI J ) = 1 

0051 


18 CONTINUE 

00 52 


IFICOSTI 1 , J ) .LT.1.0E25) GO TO 20 

0053 


325 YRLMI J ) =0. 0 

005* 


MINI J ) = 0 

0055 


COST 1 1 , J ) = 0.0 

0056 


C0STI2iJ) = 0.0 

0057 


20 W2I 1 ) = W2I1) + COSTI 2, J) 

0058 


19 Will = Will ♦ COSTI 1 , J ) 

0059 


IFINUMO.NE.O) GO TO 25 

0060 


WRITE! 6,211 ) Will 

0061 


211 FORMAT! 1H1//25H PROGRAM RECURRING COST =, F12.2) 

0062 


RETURN 


c 

c 

PRESET SMALL SUST COSTS TO ZERO SO ALGORITHM IGNORES THEM IF MSOL . 


c 

LOUT = NUMBER OF SUST COSTS GT 0 WHICH HAVE BEEN SET TO 0 

0063 

c 

25 IF! IFLAG.EO.O) LOUT = 0 



FORTRAN IV G LEVEL 1, MOO 4 CHOOZS DATE « 71312 


0064 


IFIMOS.EO.O.OR.HOS.EO.2) GO TO 26 

0065 


CALL UNPACKILZ.NODEI 1, 1),NUM0,4) 

0066 


00 401 1 = l.NUMD 

006 7 

401 

K0UT1I! = 1 

0060 


CALL PDCSTI 

0069 


WRITEI6.211) Will 

0070 

C 

CALL OUTPTI 

0071 

• 

RETURN 

0072 

26 

IFIMSOL.EO.ll GO TO 29 

0073 

177 

IF1NS0L.LE.1 ) CALL UNPACK! LZ , NODE! 1 . 1) .NUMD.4 1 

0074 


IF! 1FLAG.GT .0) GO TO 22 

0075 


00 21 I = l.NUMD 

00 76 

21 

Kilim II a 0 

00 77 


X = MYRS 

0070 


G = 8.0/X 

0079 


IFIGUESS.LT. 1.0E14) G = GUESS/ ( 150. 0*X 1 

0000 


IF { SLU.GT. 0.001 1 G = SLO 

0081 


DO 27 I = l.NUMD 

0002 


IFISUSTm.LT. .0011 GO TO 27 

00 0 3 


IFISUSTI ! 1 .GT.G) GO TO 27 

00H4 


LOUT = LOUT ♦ 1 

00 06 


KliUtll) = LOUT 

0086 


SAVS(LOUT) = SUSTI I 1 

00 8 7 


SUSTI 1 ) = 0.0 

0000 


IF (OSt I) .GE. 1. ) GO TO 27 

00H9 


IHNSOL.LE.il LZ< ! ) ■ KNEX 

0090 


IF 1 NSUL.LE.l I GU TO 27 

0091 


K ril IT ( I ) = 0 

0092 


SUSTI II * SAVSI LIMIT I 

00 9 3 


LOUT = LOUT - 1 

0094 

27 

ccjmtinue 

00 96 

28 

IFILUUT.GT.O. AND. NSOL.LE.il CALL PACKI LZ .NODEI 

0096 


GO TU 29 

0097 

22 

IFILOUT.EO.O. OR. NSOL.GT.l) GO TO 29 

0090 


DO 23 I = l.NUMD 

0099 


IFIKOUTIII .EQ.O.OR.DSI Il.GE.l. ) GO TO 23 

0100 


LZ ( I) = KNEX 

0101 

23 

CONTINUE 

0102 


CALL PACK(LZ.N0DEI1,1I,NUMD,4) 


c 

C 

**« PICK COST TO CONSIOER NEXT *** 


29 NCOST ■ 0 
NKFY = 0 

FMAX = -1.0635 
IF (KPNX.NE.NX) 

1CALL UNPACK ILZ.NOOEI 1, NX I .NUMD.4) 

30 DO 35 NIC = 1 »NUMD 
IFILZINICl.LT. 151 GO TO 35 
NKEY = NKEY + 1 
IFIKPNX.EQ.NX) GO TO 300 
WRINICl = 0.0 

on 33 J= l.NM 

IFIYRLMUI.lt. . 0011 GO TO 33 
CALL UNPACK I MZ i VNMI 1 . J ) . NV .1) 

CMIN ■ 1 .0630 
KO = LYRIJI 
JX = LETTIJ) 

ITR = LTR(JX) 

00 32 II =■ I,NV 

IFIMZI 111.60.01 GO TO 32 

1 = II 

!F( IIR.F0.2) I = II ♦ NV 
00 31 M = l, 20 

IFINOMRFCI I.MI.EO.O) GO TO 315 
Nil = NIJNRtCI I . M I 
IFINIJ.FO.NICI GO TO 32 
IF{KI«LZ<NOI.LT. KO) GO TO 32 

31 CONTINUE 

315 X = NMULTIIl.JX) 

CX = YRLMIJI*RECURI I l.KO, ITR)*X 
IFICX.LT.CMIN) CMIN = CX 

32 CONTINUE 

WRIIlir.) « WR (NIC) + CMIN 

33 CONTINUE 

300 PF = WPINIC) - W ( NX ) 

IFIP6.LT.. 001) GO TO 35 

301 IFISUSTINIC>.GE..001> OF = 0SINIC)*0.5 ♦ SUST(NIC) + PF 

1 -1 .064/1 SUST(NIC) **4> 

IFISUSTINIO.LT. .001) DF = 0. 5*DS( NIC) ♦ 4.0 ♦ PF 
IFISUSTINICI.lt. .001. AND. PF.GT.1.0E10) DF = 1.0E34 
IFIDF.LE.FMAX) GO TO 35 
FMAX = OF 
NCOST = NIC 
35 CONTINUE 


0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 
013 3 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 


17/23/04 
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0144 


0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 
0 154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 


0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 


0180 

0181 

0182 

0183 

0184 

0185 

0186 


0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 

0202 

0203 

0204 

0205 

0206 


0207 

0208 

0209 

0210 
0211 
0212 


C 

C 

C 


C 

C 


36 IF I NCOST . EQ.O) GO TO 73 

ALLOCATE SPACE FOR NEW NODES 


295 IF! SUST(NCOST).GE..O01) 

I FI SUST (NCOST ) .LT ••001 ) 
lFINEXT.EQ.il GO TO 41 
* 00 40 I = 2 tNEXT 

K = NEXT ♦ 2 - I 
IF! Z IK ) .LE .GUESS) GO TO 
J = J+l 

I FI SUST INCOST I .GE..001 ) 
IF I SUST INCOST) • LT* • 00 1 ) 
IFIJ.EO.KNEXI GO TO 44 


J=0 ♦ INYDINCOST) 
J *= KNEX - l 


40 

NSAVEIJ) = K 
NSAVEI1I = K 


40 CONTINUE 

41 IFIJ.EO.KNEXI GO TO 44 
J=.J+1 

NEXT =NEXT+ 1 

IFINEXT.EQ.500) GO TO 74 
I F I SUST I NCOST ) .GE • • 001 I NSAVEIJ) = NEXT 
IF|SUSTlNCOST).LT..OOi) NSAVEI1) = NEXT 
GO TO 41 


1)/KI 


*** BRANCH WITH VARYING YEARS OF SUSTAINING COST *** 

44 DU 52 K = 1 » 10 

I F I SUST INCOST) .GE . • 001 • AND.K.LT. !♦( NYDI NCOST ) — 1 ) /K I ) GO TO 52 

KX-NSAVF I K ) 

IF! IK-1)*KI.LT.LYDINC0ST)> GO TO 45 
W(KX) = 1.0E30 


Z(KX) =20. 0E30 
GO TO 509 

45 00 46 1=1*5 

46 NODE I I *KX )*NOOE( I »NX) 

LZI NC0ST)=K-1 

IFIK.E0.1 ♦ |NY0INC0ST)-1)/KI ) LZINCOST) « 0 
CALL PACK I LZ vNODE I 1 tKX ) » NUMD*4) 

LB = K-l 
C 

CALL LBONDI 
C 

509 I F I SUST INCOST).LT..001) GO TO 53 
I FI K I *K.GE .MYRS ) GO TO 53 
52 CONTINUE 


C *** BRANCH INCLUDING NCOST ANO ALL SUSTAINING - PUT IN NODE NX *♦* 

53 LZINCOST) = ILYOINCOST) ♦ KI - 1)/KI 
CALL PACK I LZ * NODE I 1 »NX ) *NUMD f 4) 

IFIWINX).GT.WIKX)-.0001.AND.W2INX).GT.W2(KX)-0.0001) LB= 50 

IFIW (NX ) «GT .W ( KX ) -.000 1 .ANO .W 2 1 NX ) .GT. 1. 0E25 .AND • W2 1 KX ) -W2 1 NX ) .LT • 

1 1.0E25) LB= 50 

KX = NX 

K l = LYOI NCOST I 

C . 

CALL LBONDI 
C 
C 

C PICK NEXT NODE FOR BRANCHING AS THE ONE WITH LEAST LOWER BOUND Z 

55 KPNX = NX 
NX = 1 

Dll 59 1=2, NEXT 

IFIZ(NX) .GT.ZI III NX * I 

59 CONTINUE 

IFCZINXI.LE. GUESS! GO TO 29 
IFINAOO.GT.O) GO TO 60 
WRITE I 6,202 I 
GUESS = 0.0 
RETURN 

60 WR I TE I 6, 206 1 Z(NX) 

GO TIJ 109 

79 WRITEI6.203) 

ieinaod.gt.oi go to 109 

RETURN 

C 

73 IFINKEY.EO.OI GO TO 75 
00 37 I = l.NUMD 
IFI LZI TI.EO. 151 Lilli = 0 
37 CONT INUE 

CALL PACK I LZ .NODE I 1 ,N X I ,NUMO, 9 1 
C 

C ASSIGN VEHICLE TO MISSION 

75 DO HO J=1,NM 

IF(YRLMIJ). LI. 0.00011 GO TO 79 
CALL UNPACKIMZ.VNMI l,J),NV ,1) 

CM1NM.0E3O n 

KO = LYRIJI ■L'-J-j 

JX = LETTIJl 
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0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 
022 3 

0224 

0225 
0 226 
022 7 
0228 
022 9 
02 30 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 


ITR = LTR(JX) 

DO 78 II = l f NV 

IFIMZI III. EG. 0) GO TO 78 

I = 11 

IF ( ITR.FQ.2) I ■ II ♦ NV 
DO 77 K-1,20 

IF ( NONR EC ( I , K ) • EQ.O ) GO TO 775 
NO =NONRFC(I,K> 

IF(KI*LZ(NO).LT.KO) GO TO 78 

77 CONTINUE 

775 X = NMULTt 1 1, JX) 

CX-YRLMI J) ♦RECUR I U,KO,ITR)*X 
IF(CX.GE.CMIN) GO TO 78 
CMIN«CX 
MINI J) si l 

78 CONTINUE 
GO TO 80 

79 M INI J > = 0 

80 CONTINUE 

IF(NPOS.EQ.O) GO TO 05 
00 355 I * 1,10 
IMMURE! I). EQ.O) GO TO 356 
I F ( MURE ( I ) . EO.NX 1 GO TO 354 

355 CONTINUE 

356 DU 8? NA = l.NPOS 
00 81 J = 1 , NM 

IF(MIN( J).NE.MINOPT( J,NA) ) GO TO 82 

81 CONTINUE 

IF ( IP.GT.O) 

1WRITEI 6,204) NX , Z (NX ) v NA 
GO TO 103 

82 CONTINUE 

85 IF (NP.EO.O. AND. LOUT. EO.O) GO TO 86 
C 

354 CALL POCSTI 
C 

I F I GUESS* LT • • 00 1 ) GO TO 109 
IF(Z(NX).GT.19.0E30) GO TO 55 
IFIEXTRA.LT, 1.0) GO TO 86 
IFINP0S.E0.9) GO TO 84 
GUESS = 2 • 0*Z I NX ) 

NPOS = l ♦ NPOS 
IFIZKP.LE.Z(NX) ) GO TO 318 


0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 
0270 

0279 

0280 
0281 
0282 
0283 


0284 

0285 
0206 

0287 

0288 
0289 


ZKP = ZINX) 

WKP » W(NX) 

NXKP = NX 
KPNPOS = NPOS 
DO 317 I = 1,5 

317 L ZKP ( I ) = NODE! I ,NX) 

318 DO 319 I « 1»NM 

319 MINOPTI I ,NPOS) a MINIII 
GO TO 55 

84 I F I NADD.GT .0 ) GO TO 109 
NX = NXKP 
ZINX) * ZKP 
W ( NX ) a WKP 

CALL UNPACK I LZ , LZKPI 1) ,NUMD,4) 

DO 87 I = 1,NM 

87 MIN! I ) = MINOPTI I .KPNPOS) , 

GO TO 354 
86 NADI) = NADO ♦ 1 
NHDD = NAOO 
NPOS = MAXOI NBDO.NPOS ) 

DM IN = Z ( NX ) - WINX) 

WRITE!6,20i) NADD.NX ,W (NX ) , OMIN, ZINX) 

C 

CALL OUTPTI 
C 

FTC (NADO) = Z ( NX ) 

IF( KSTAT.GT.O) CALL CMPARE 

I F ( ( I FLAG .60.0. AND. LCK . EO* 1 ) .OR. ( NPOS.GE . 10) ) RETURN 
IF(NADO.LT.NSOL) GO TO 101 
IFINAUO.EO.l ) RETURN 

109 DO 110 I = 1 ,NM 

110 M IN! I ) = M INOPT ( 1,1) 

RETURN 

C 

C STORE OPTIMAL VALUES 

101 00 102 I = 1 ,NM 

102 M I NOPT ( I , NADD) = MINIl) 

103 Z ( NX ) = 1.0E30 
NX a 1 

GO TO 55 

201 FORMAT ( 1H1 , 13 ( 1H* I , 32H SOLUTION NUMBER ,!2,12(1H*) 

1 /IH , 1 3 ,4X , 1 1HRECURR ING », F 10.2.3X, 14HN0NRECURR ING »,F10.2,3X, 

2 27HT0TAL LAUNCH VEHICLE COST ■, F10.2) 
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0290 202 FORMAT! 14H1GUESS TOO LOW 1 

0291 203 FORMAT ( 19H1EXCEE0E0 500 NOOESt 

0292 204 FORMAT ( 23HOTHE ASSIGNMENT AT NODE , 14, 3X, 1 6HW I TH LOWER BOUNO.FIO.2 

It 3X.35HIS THE SAME AS SOLUTION /POSSIBILITY, 14) 

0293 205 FORMAT (1H1.55HB RANCH AND BOUND NODE VALU 

1 E S/58HONODE BRANCHED COST YEARS RECURRING NON-RECURRING 
2,5X,5HT0TAL/13H NO. FROM, 5X, 12HN0. SUSTA IN, 5X ,3 ( 5HB0UND.9X ) / ) 

0294 206 FORMAT! 28H0NEXT SOLUTION HAS VALUE GT .F10.2I 

0295 END 


TOTAL MEMORY REQUIREMENTS 002280 BYTES 


FOB-LEVEL LINKAGE EOITOR OPTIONS SPECIFIED LIST, NCAL, MAP 


IEWOOOO 
I HW046 1 
IEH0461 
I EVI046 1 
IEW0461 
IEW0461 
IEW0461 
IEW0461 
IEW0461 


VARIABLE OPTIONS USED 
NAME M0X02CHIR) 

PACK 

IbCOM= 

UNPACK 

POCSTI 

OUTPTI 

LBONOI 

CMPARE 

MAXO 


SIZEM 126976,24576) 


DEFAULT OPT ION ( S ) USED 


MODULE MAP 


CONTROL 

SECTION 


ENTRY 

NAME 

ORIGIN 

LENGTH 

NAME 

CHOOZS 

00 

22BO 


SAV3 

2280 

980 


SAVALL 

2C00 

3A1C 


VAR MCE 

6620 

ADC 


TEMP 

7100 

4110 


SCRACH 

B210 

6A60 



LOCATION NAME LOCATION NAME LOCATION 


ENTRY ADDRESS 00 

TOTAL LENGTH UC70 


•»**M0X02CH NOW REPLACED IN OATA SET 
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0001 


0002 


0003 


0004 


0005 

0006 


0007 


0008 

0009 

0010 


0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 


0019 

0020 
0021 
00 22 
002 3 

0024 

0025 

0026 
0027 
00 28 

0029 

0030 

0031 

0032 

0033 
00 34 

0035 

0036 

0037 
00 38 
00 39 

0040 

0041 

0042 

004 3 

0044 

0045 

0046 

0047 


0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 


SUBROUTINE CMPARE 

C STATISTICALLY COMPARE ASSIGNMENTS FOUND 
C 

INTFGER*?NU,N8Y,N0B, MODE , F 1 N I SH ,NSTG , LABF , L ABS , l AB I ,NFML ,NFMU, 

1 KOUS.MAS.LTR , MAF, MA IC, NPAD, NP FAM, NP i NTL, NPINTU, NFS. NPSTG, MAPS, 

2 MAPF.MAPI .NYO.MAT.LYD.IS.LYR.LETT.MIN, VEH, NONREC .NMULT ,KOIIT , 

3 NINTYR.NTGYTR .MINOP T , MORE .NADD.NX.NRCU 

COMMON/ SA VS AR /COR, POJI 3 1 , SR J I 3 , 3 1 , NU( 40) , NBY ( 40 ) , NUB I 40 ) ,R I NT (40 I , 

1 PLCINTI40I .XLTI40) , PLCT( 40) ,UPP ( 401 ,TAT ( 401 , TAMT ( 50) , SR ( 40, 3 1 , 

2 M0DF(40,3I ,PLC(40,3) 

COMMON/ SAVE 1/ F INISH.NSTG.NCI, ILY.LABFt 30) , LABS( 40 ) , L ABI I 40 ) , 

1 MFMLI40) , NFMU (40) ,K0DS(40) ,STS(41) , STGI 40) , VLR I 50) , WPR( 50) , 

2 RPLMI 50) ,MAS( 40, 31 , RXD(12,50) 

COMMON/ SAV3/GR0 ,GUE SS , LP , NSOL , MSOL , NP ,MOS »NM IS,NSPR,NPERPD(30>, 

1 PAO(301,LTR(5OI,PLR(5O),ROISTI56,4),JlLPI(4,6O) 

COMM 0N/SAV4/ MAF( 30,3 ) , MA!C(40,3), j, 

* NPA0(2,60) ,NPFAM(30,5> ,NPINTL( 30,5) .NPINTUI 30,5), 

1 NFS ( 40,4) ,NPSTG(30,10) .MAPS (30,10) ,MAPF ( 30, 10) ,HAPI( 30, 101 , 

2 PFAMD(30,5,2),PFAMS(30,5,2),PINTS(30,5,2),PSTGD(30,10,2), 

3 PSTGSI 30, 10,2 ) 

C0MM(IN/SAVALL/LCK,SL0,NM,NEXD,NV,NUMD,MYRS,L20PT( 8) ,NY0(46),MAT( 46 
1) ,SUr,T(46) ,0S(46) ,LY()(46I ,Y0I46) , I SI 102) , L YR ( 25? ) , l ETT ( 250 ) , 

2 MINI ?50) , YRLMI 250 ) , VE H ( 4, 60 ) , NONREC ( 120,20) , NMULT ( 60, 50 ) 
COMMON/VARNCF/KSTAT.VARI (40) , VARFI50) , VARMI 56) ,FMVARI2,30) , 

1 F I VAR ( 3,40) , PL VAR I 3,56) ,SVAR( 5,40) 

COMMON/ T FMP/ VNM (2,250) , 1 F L AG, K I , NE XT , LOUT , SA VS I 40) ,K0UT(40) , 

1 NINTYR 1 40, 20) .NTGYTRI 40,20,2) , RECUR I 60, 20,2 ) 

COMMON/ SCR ACH/EXTRA,NAOO,NX, MORE! 10 ) , ZKP , WKP ,NXKP , L ZKP I 5 ) ,DUHE 111) 
», A2,L7. (46) ,W(500) ,H2( 5001 , 

1 TUSI500) ,MR(499I ,2(500) , COST! 2,250) ,MINOPT( 246,9) , NODE! 5,500) , 

2 NPUS,S1GS0(9I,ETC(9), 

3 T STGI 40,2 ) ,NRCUI 401 , OUM( 10) 

0 1 MENS I ON TR I NT ( 40 ) 

c 

DO 50 I = l.NSTG 
NRCtK 11=0 
TSTGI 1,1) = 0.0 
50 TSTGI 1,2) = 0.0 

IF(NCI.EO.O) GO TO 70 
DO 60 I = 1.NC1 
60 TRINTI I ) =0.0 
C 

C CALCULATE NUMBER OF TIMES EACH RECURRING COST IS USED 


70 DO 100 J = 1 ,NM 

IFIYRLMI JI.LT. .001) GO TO 100 
I = MIN(J) 

JX = LETT ( J ) 

ITR = LTRIJXI 
X = NMULT! I.JXI 
00 99 MS = 1,4 
L = VEH ( MS , I ) 

IF ( L.EO.O) GO TO 100 

TSTG(L.ITR) * TSTGI L , I TR ) ♦ YRLM|J)*X 

IF(NCI.EO.O) GO TO 99 

IFIMS.E0.4) GO TO 100 

IFIVEHIMS+1, I I.EO.O) GO TO 100 

LI = VEHIMS+l , I ) 

DO 98 MI = 1,NC! 

00 96 KY = 1,4 

IFINFMLIMl ).NE.NFS(L,KY) 1 GO TO 96 
00 95 KZ = 1,4 

IF ( NFMUIMI ).EQ.NFS(L1,KZ) I GO TO 97 

95 CONTINUE 

96 CONTINUE 
GO TO 98 

97 TRINT(MI) = TR INTI M I ) ♦ YRLMIJ)*X 

98 CONTINUE 

99 CONTINUE 
100 CONTINUE 

TOT = 0.0 
VTC = 0.0 
ATC = 0.0 
C • 

C CALCULATE VARIANCES AND CORRELATE DEV. COSTS TO OPERATING COSTS 
400 DO 500 I = l.NUMD 

IF ( LZ ( I ) . EO.O) GO TO 500 
I F I NADD.GT . 1 ) LZ ( I ) = LZ ( I )*K I 
XX = LZ ( I ) - NY0( I) ♦ 1 
SU = SUST ( I ) 

IFIKOUTI II.EO.O) GO TO 402 
LT = KOUT ( l ) 

SU = SAVS(LT) 

402 TOT = TOT + DS( I) + XX*SU 
J = MAT I I ) 

1 F ( J.GT.1000) J » J - 2000 
IFIJ.LT. -200) GO TO 499 
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0060 

0061 

0062 

0063 

0064 

0065 
00 66 
0047 
006ft 

0069 

0070 
00 71 
0072 
00 7 3 

0074 

0075 
00 76 
0077 
00 7 B 
0079 
00 00 
00 HI 
00 82 
008 3 

0084 

0085 
00 86 
0087 


IF(J.LT.-IOO) GO TO 440 
IFU.LT.O) GO TO 470 
IFIMASt J,1).NE.I) GO TO 499 
TSR = 0.0 
OTM = 0.0 

C TOP = TOTAL OPERATING? TSIG = TOTAL OPERATING VARIANCE 
TOP = 0.0 
TSIG = 0.0 

IF ( LABS I J ) • EQ. 0) GO TO 410 
L = LAftSIJ) 

00 405 K = 1,12 
405 OTM = OTM ♦ RXD(K,L> 

TSR = CEXPI 1.5*VARF( L ))*DTM) /I 1.0 + EXP ( 1. 5*VARF < L ) ) ) 

ATC = ATC ♦ TSR 

IFIVARFI LJ.LT.. 0011 GO TO 410 
TTSR = TSR*TSR*(EXP< VARF(L)) - 1.0) 

VTC = VTC ♦ TTSR 

410 OTM = OS ( I ) - OTM 
DXM * TSR 

IHNU< JI.EQ.O) GO TO 420 
X = Nil I J ) 

X = ABSIX) 

TSR * (EXPI 1.5*VARI( J))*X*UPP(J) )/( 1.0 ♦ EXP( 1 . 5*VAR I ( J ) ) ) 
ATC = ATC + TSR 

IF ( VAR I ( J) • LT..001 ) GO TO 411 

TTSR = TSR*TSR*(EXP(VARI<JJ) - 1.0) 

VTC = VTC ♦ TTSR 
TSIG = VAR I ( J ) 

411 TOP = TSR 


00B8 

0089 

0090 

0091 

0092 

0093 

0094 
009 5 

0096 

0097 

0098 

0099 

0100 
0101 


OTM c OTM - X*UPPM) 

420 IFI SVARI4, J) .LT..001) ATC « ATC ♦ . 5*DTM 
I F I SVARI4,J) .LT..001) GO TO 421 

TSR = (EXPI 1.5*SVAR|4,J) )*DTM)/|1.0 ♦ EXP I 1.5*SVAR(4,J) ) ) 
ATC = ATC + • 5*TSR 

TTSR = TSR*TSR*(EXP(SVARI4, J) ) - 1.0) 

VTC = VTC ♦ TTSR 
DXM = OXM ♦ TSR 

421 IF(SVAR(5 f J).LT..001) ATC = ATC ♦ .5*XX*SU 

IFISVARI5, J).LT.. 001. OR.SU .LT..001) GO TO 422 

TSR = (FXP(1.5*SVAR(5,J))*XX*SU)/U.O ♦ EXPI 1 . 5*SVAR(5 , J ) ) ) 
ATC » ATC + TSR 

TTSR = TSR*TSR*(EXP(SVAR(5,J) ) - 1.0) 

VTC = VTC ♦ TTSR 


0102 

0103 


0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 
0117 
01 18 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 


TOP = TOP ♦ TSR 

IF(SVARI5»J) .GT.TSIG) TSIG «= SVAR(5,J) 

C AOO STAGE RECURRING AND ASSOCIATED VARIANCES 

422 NRCU(J) = 1 

TSR = SR( J f l)*(TSTG( J,l) ♦ TSTG(J,2)) 

TOT = TOT ♦ TSR 

IFISVARI 1, J) .LT..001) ATC * ATC + .5*TSR 

IFITSR.LT..001.0R.SVARI 1, J) .LT..001) GO TO 423 

TSR = I EXPI 1.5*SVARI 1 ,J) )*TSR)/( 1.0 ♦ E XP( 1 . 5 *$VAR ( 1 , J ) ) ) 

ATC = ATC + TSR 

TOP = TOP ♦ TSR 

IF(SVARIlfJ). GT.TSIG) TSIG = SVAR(l.J) 

TTSR = TSR*TSR*(EXP< SVARI 1, J) ) - 1.0) 

VTC = VTC ♦ TTSR 

423 TSR = SR(«Jv2)*TSTG(J« 1) 

TOT = TOT ♦ TSR 

IFISVARI2, J).LT..00l) ATC * ATC ♦ .5*TSR 

IF1TSR.LT..001.0R.SVARI2, J).LT..001) GO TO 424 

TSR = < EXPI 1.5*SVARI 2,J) )*TSR)/( 1.0 ♦ E XP( 1 .5*SVAR ( 2 * J ))) 

ATC = ATC * TSR 

TOP = TOP + TSR 

IFI SVARI 2, J) .GT.TSIG) TSIG * SVAR(2,J) 

TTSR = TSR*TSR*(EXPISVAR(2, J) ) - 1.0) 

VTC = VTC ♦ TTSR 

424 TSR = SRI J»3)*TSTGI J,2) 

TOT = TOT 4- TSR 


0127 

0128 

0129 

0130 


IFISVARI 3, J) .LT..OOU ATC = ATC ♦ .5*TSR 

IFI TSR.LT..001.0R.SV/R13,J) .LT..001) GO TO 425 

TSR = (EXPI 1.5*SVAR(3,J) )*TSR)/I1.0 ♦ E XPC 1 ,5*SVAR( 3 » J ) ) ) 

ATC = ATC ♦ TSR 


0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 


TOP = TOP ♦ TSR 

IF(SVAR(3,J). GT.TSIG) TSIG = SVAR(3,J) 

TTSR = TSR * T SR* ( EXP I SVAR I 3 » J ) ) - 1.0) 

VTC - VTC ♦ TTSR 

425 IFICOR. LE. . 001. OR. SVAR|4,J).LT.. 001. OR.TSIG.LT. .001) GO TO 500 

51 = SORT I SVAR ( 4 , J ) ) 

52 = SORT (TSIG) 

TTSR = DXM*T0P*(EXPIC0R*S1*S2) - 1.0) 

VTC = VTC ♦ 2. 0*TT SR 
GO TO 500 
440 JX = - J “100 

IFIMAIC(JXfl).NE.I) GO TO 499 
OTM * 0.0 
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DATE = 7X312 


17/07/40 


0144 

0143 

0146 

0147 

0148 
0140 

0130 

0131 

0152 

0153 

0154 

0155 

0156 

0157 

0158 
0139 
0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 
017 1 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 


IFILABK JXl.E0.6l GO TO 450 
L = LARKJX1 
0(J 445 K = 1.12 
44 5 OTM = OTM ♦ RXO(K.L) 

IFIVARFILl.LT. .0011 ATC ■= ATC + .f*DTM 

ihvarfili.lt. . 001 ) go to 450 

TSR = (EXPl 1.5*VARFIL))*DTM)/11.0 ♦ EXP 1 1 . 5*VARF I L > > > 

ATC = ATC * T SR 

TT SR = TSR*TSR*IEXP(VARF(L>> - 1.0) 

. VTC = VTC F TTSR 

450 OTM = DSl I 1 - OTM 

!F(FIVAR(2tJX).LT.. 001) ATC = ATC + .5*DTM 

IF1FIVAR12. JX1.LT..001) GO TO 451 

OTM = 1 EXPl 1.5*FIVAR( 2 . JX))*DTM> /( 1.0 + E XP 1 1 . 5*F I VARl 2 . JX ) ) ) 

ATC = ATC + OTM 

TTSR = 0TM*DTM*1EXP(F1VAR(2,JX)) - 1.0) 

VTC = VTC * TTSR 

451 IF! F I VARl 3. JX ) .LT..001 ) ATC = ATC + .5*SU*XX 

IF1SU .LT..001.0R.FIVAR13,JX).LT..001) GO TO 500 

T SR = (EXPl 1.5*F1VARI3,JX) )*SU*XX)/I 1.0 + EXPl 1 . 5*F I VARl 3, JX ) > ) 

ATC = ATC ♦ TSR 

TTSR = TSR*TSR*(EXP(FIVAR(3,JX)) - 1.0) 

VTC -- VTC + TTSR 

452 IF(COR.LT..001.0R.F1VAR(2*JX).LT.,001) GO TO 500 

C THERE IS NO CORRELATION BETWEEN INTEGRATION RECURRING AND DEVELOPMENT COSTS 
S2 = SORT 1 F I VAR 1 2 . JX ) ) 

SI = S0RT1FIVARI3.JX) I 

TTSR = 0TM*TSR*1EXPIC0R*S1*S2> - 1.0) 

VTC = VTC ♦ TTSR 
GO TO 500 
470 JX = -J 

I F( MAPI JX, 1 I .NE . I ) GO TO 499 
OTM = 0.0 

I F< LARF1 JX I .EO.O) GO TO 480 
L = LARF(JX) 

00 475 K = 1,12 
475 OTM = OTM f RXDIK.L) 

IFIVARFILl.LT. .001) ATC = ATC * .5*DTM 
IFIVARFILl.LT. .001) GO TO 480 

TSR = (EXPl 1.5*VARF1L1 )*OTM)/( 1.0 + EXPl 1 ,5*VARF 1 L ) ) ) 

ATC = ATC + TSR 

TTSR * TSR*TSR*IEXPIVARFIL) ) - 1.0) 

VTC = VTC * TTSR 


0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 


480 OTM = DSl I ) - OTM 

IF(FMVAR(1,JX).LT..001) ATC * ATC ♦ .5*DTM 
IF! FMVARl 1, JX) .LT..001) GO TO 481 

DTM = 1EXP1 1.5*FMVAR(1,JX1I*DTM)/I1.0 f EXPl 1.5AFMVAR1 1,JX) ) I 
ATC = ATC F DTM 

TTSR = OTM*OTM*(EXP( FMVARl 1,JX) ) - 1.0) 

VTC = VTC * TTSR 

481 IF1FMVAR1 2,JX) .LT ,.001 ) ATC = ATC + .5*SU*XX 

IF1SU .LT..001.0R.FMVAR12,JX).LT..001) GO TO 500 

TSR = (EXPl 1.5*FMVAR1 2, JX I )*SU*XX )/l 1.0 + EXPl 1 . 5*FMVAR( 2 , JX ) ) ) 

ATC = ATC + TSR 

TTSR = TSR»TSR*(EXP( FMVAR12, JX) ) - 1.0) 

VTC = VTC ♦ TTSR 

482 IF1CUR. LT.. 001. UR. FMVARl 1,JX) .LT.. 001) GO TO 500 

51 = SORT 1 FMVAR 1 1,JX) ) 

52 = S0RT(FMVAR(2,JX)) 

TTSR = 0TM*TSR*(EXP(C0R*S14S2) - 1.0) 

VTC = VTC + TTSR 
GO TO 500 

499 ATC = ATC + . 5* < OS 1 II + XX*SU> 


0206 500 CONTINUE 

C 

C CALCULATE VARIANCE DUE TO RECURRING COS(TS WHICH HAVE NOT BEEN CONSIDERED YET 


0207 


00 ?00 L = 1 , NSTG 


0208 


IF(NRCUIL).EO.l) go to zoo 


0209 


TSR = SRI L, 1 ) *1 TSTGl L, 1 l + TSTGl L ,2 1 1 


0210 


TOT = TOT + TSR 


0211 


IF1SVARI 1 ,L) .LT..001) ATC = ATC ♦ ,5*TSR 

0212 


IF1TSR.LT.. 00 1 • OR • SVARl l,L).LT..00l) 

GO TO 110 

0213 


TSR = 1 EXPl 1 .5*SVAR( 1,L ) )«TSR )/( 1.0 + 

EXPl 1.5*SVAR( 1 ,1) ) ) 

021 ** 


ATC = ATC + TSR 


02 15 


TTSR = TSR*TSK*IEXP(SVAR(1,LI) - 1.0) 


0216 


VTC = VTC + TTSR 


0217 

no 

TSR = SR(L,2)*TSTG(L,1 ) 


0218 


TUT = TOT * TSR 


0219 


IF(SVAR(2,L) .LT..001) ATC = ATC f ,5*TSR 

0220 


IF1TSR.LT.. 00 1. OR. SVARl 2,L) .LT. .001) 

GO TO 111 

0221 


TSR = (EXPl 1.5*SVAR(Z,L! )*TSR) /( 1.0 * 

EXPl 1 . 5*S VAR 1 2 ,L ) ) ) 

0222 


ATC = ATC f TSR 


0223 


TTSR = TSR*TSR41EXP(SVAR12,L)) - 1.0) 


022 ** 


VTC = VTC F TTSR 


0225 

HI 

TSR = SR(L,3)*TSTG(L,Z1 


0226 


TOT = TOT f TSR 




FORTRAN IV G LEVEL 1, MOD 4 


CMPARE 


DATE = 71312 


17/07/40 


0227 

0228 

0229 

0230 

0231 

0232 

0233 
02 34 

0235 

0236 

0237 
02 38 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 
0262 
0263 
0254 


0265 
0256 
0267 
0258 
02 59 
0260 

0261 

0262 

0263 

0264 

0266 


IF(SVAR(3,L).LT..001) ATC = ATC ♦ .5*TSR 
IF(TSR.LT..001.0R.SVAR<3,LI.LT..001) GO TO 200 
TSR = IEXP(1.5*SVARI3,L1I*TSR>/<1.0 ♦ E XP( 1 .5*SVARI 3 , L 1 11 
ATC = ATC + TSR 

TT SR = TSR * TSR*( EXP (SVARI 3, LI 1 - 1.01 
VTC = VTC + TTSR 
200 CONTINUE 

IFINCI.EO.Ol GO TO 510 
DO 300 I = 1,NC! 

• TSR = RINTI I I*TR1NTI II 
TOT = TOT + TSR 

IFIFIVARI1.II.lt. .0011 ATC = ATC ♦ .5*TSR 

IFITSR.LT. .001. OR. FIVARll.ll.LT. .0011 GOTO 300 

TSR = IEXP(1.5*FIVARI1,III*TSR)/I1.0 + EXP( 1 ,5*F I VAR 1 1 , III I 

ATC = ATC + TSR 

TTSR = TSR*TSR*(EXP!FIVAR<1,III - 1.01 
VTC = VTC ♦ TTSR 
300 CONTINUE 

510 IFINADO.LE.il A2 = ATC 

IFINAUD.GT. 1) ATC = ETCINAODI - ETCH) + A2 

SIGSOINAOD1 = ALOG(ATC*ATC + VTC1 - ALOG I ATC*ATC 1 

XMOUE = ATC*(EXP(-1.5»SIGSQ(NADDI1I 

TP = SOPTl SIGSQINAOOI I 

XMU = ALOGI ATC I - . 5* SI GSQI NAODI 

VTC = SORT (VTC I 

XX = XMOUE + ETC I NAOO I - ATC 

W R I T E ( 6 # 900 1 NADD.ETCINADDI , TOT, XX, VTC , XMU, S I GS 01 NADDI 

900 FORMAT I ' 1S0LUT I ON* , I 3, • HAS EXPECTED L V COST', F10.2,' (', 

» E I O . 2 , ' I *, 3X,'M0UE =• ,F10.2,3X, 'STD. DEV. °>,F10.2// 

* • PARAMETERS MU AND SIGMASO = • , F 10 . 2 , 3X , • AND* , F 10. 2 I 

XMU = I ALOGI XMOUE I - XMU I /TP 
CALL NUTR ( XMU ,P2, 0 1 
XOUM = (ATC/TP1*! 1.00/2.50661 
C = (Xni|M/XMOOEl*EXP(-.5«XMU**2l 
WRITEI6.910I XX.P2.C 

910 FORMAT I1H0, • PROB (COST LE*, F10.0,' I = ', F4.2.3X, 'DENSITY ■= • , 
2 F 1 0.4 1 
P2 = P2 + .5 
CALL NOTRI(P2,Y2,C, IE1 
Z2 = EXP(TP*Y2 ♦ XMUI 
C * (XOUM/Z21»EXP(-.5*Y2**21 
22 >= Z2 + ETCINADO) - ATC 


0266 

0267 


0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 


WRITE! 6 , 905 I Z2,P2,XX, Z2,C 

905 FORMAT! '0PR08 (COST LE ' , F10.0,' 1 =',F4.2,3X, 

*• 50 PERCENT UNCERTAINTY INTERVAL »• , F10.0, 2X , 'TO' , F10.0.3X, 

* 'DENSITY = ' ,F10.2 I 
XX = ETCINAODI - ATC 
WRITEI6.911 1 XX 

911 FORMAT! 1H0/ 1H0, ' PROB (COST LE', F10.0,' 1 ■>', • .00', 3X, 

* 'DENSITY = .00' I 

P = .1 

00 520 I = 1,5 
CALL N0TRI(P,Y,C,IE) 

X5 = FXP(TP*Y ♦ XMUI 
0 = ( X0UM/X5 l*EXP( -,5*Y**21 
X6 “ X5 ♦ ETCINAODI - ATC 
WRITE(6,9101 X5,P,D 
520 P = P ♦ .2 

IFINADD.LE.il GO TO 700 
NT = NAOD - 1 
DO 600 I = l.NT 
RHO = -.3 

TP 1 = SORT ( S IGSO! 1 1 I 

ATC = ETC! I I - ETC! 1 ) + A2 

XMII1 = AL0GIATC1 - .5*SIGS0II1 

DO 690 J = 1,4 

RHO = RHO ♦ .3 

Y = I XMU - XMU 1 1 /( SORT ( S IGSO! 1 1 + SIGSOINADDI - 2.0*RHO*TP*TP1 1 1 
CALL NDTR ( Y , P , 0 1 
W R I T E ( 6 , 901 I NAOO, I, P, RHO 

901 FORMAT! '0 PROB ( ASS IGNMENT • , I 3 , • COST GE ASSIGNMENT ', I 3, • C0ST1 
*=', F4 .2, • IF CORRELATION »• , F3.1//I 
590 CONTINUE 
600 CONTINUE 
700 WR IT E ( 6 , 906 1 

906 FORMAT! 1H11 
RETURN 

END 



TOTAL MEMORY REQUIREMENTS 002870 BYTES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L I ST,NCAL »MAP 

VARIABLE OPTIONS USED - S I ZE= ( 1 26976, 24576 ) DEFAULT OPTIONISI USED 

I EWOOOO NAME MOX02CMIR) 

IEW0461 I BCUM= 

1EW0461 NDTR 
IEW0461 NOT R l 
IEW0461 EXP 
IEW0461 SORT 
IEW0461 A LOG 


MODULE MAP 


CONTROL SECTION ENTRY 

OAMF ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION 

CMPAKE 00 2B70 

SAVSAK 2B70 ABC 

SAVE 1 35UO EC4 

SAVA 4598 9B0 

SAVA 4F18 BIBB 

SAVALL 80A0 3A1C 

VARNCE BACO AOC 

TEMP C5A0 ALIO 

SCRACH L06B 0 6A60 


ENIRY A DURESS 00 

TOTAL LF-NGTO 17110 

i«*AM0X02CM NOW REPLACED IN OATA SET 


(171 OS/ 360 FORTRAN H DATE 71.312/17.03.19 

COMPILER OPTIONS - NAME= MA I N , OP T"02 , L 1NECNT=44 , SOURCE , BCD, NOL 1ST .NODECK , LOAD, NOMAP , NOED! T , I D, 
ISN 0002 SUBROUTINE CONSTR 

C DETERMINE IF ANY PROGRAM CONSTRAINTS HAVE BEEN VIOLATED 
ISN 0003 DOUBLE PRECISION NAME 

ISN OOOA INTEGER PROG 

ISN 0005 LOGICAL SK 1 P , EXT , ACCL 

ISN 0006 INTEGER*2 NSYR ,N5FX .NRFX.NYRSST, NSTRPX.NPROG.KPROG , KODE .NYRSFX, 

1 YDPL , KODEM »KOOE SP i 

6 KVEHI ,LABEL,LVARY,LVO,IVEH,LVS,LVSF, NOP,NSSF,NSRF,NSXF,NDSF 
C 

ISN 0007 COMMON /SAV2/EXT *ACCL , KNSTG, KNF AM t KNC I , KNP.KNMIS.JFLAG.TREF »NCSTR , 

1 PMAX.PMIN, ISTP.T , I FIN, MAX I TR ,MI TR.K0DESP1 6) , T I TL E I 10 1 , L E VEL ( 20 ) , 

2 CNTRVL(20I,FIXEO(20) , KODEM ( 50) .NSYRI 50) , NS FX( 50 ) .NAME ( 56 1 , 

3 YDPL (561 iNRFXI 501 ,NYRSST( 8 A 1 .NSTRF X I 8 A ) .NYRSFX I B4 ) , SUSI 8AI ,C( BA) 

A, RIBA) t SI BA) ,CS( 90) ,NPROG( 90) .KPR0GI90) , KIIDE(90> 

ISN 0008 COMMON/SCRACH/M.N.NCS . PROG. IODD.IERR, SKIP, MYFL AG , JS .NSCALE ( 5 ) , 

1 NSLI 10) ,T0TALI20),W( 20) ,0( 20) , XOUT ( 20) , VOUTI 20 ) ,RRR( 20) .YEAR (20) 

2, Y( 20) .KVEHI ( 50) , LABEL! 50) ,L VARY! 70) ,LVD( 70) , I VEH( 70) .LVSI70) , 

3 LVS F ( 80) ,VNAM( 80) ,NOP< 86) , RF 1 86 ) , CF( 86 I , SF ( 86 ) ,FLAGR( 86) . 

A FLAGSIB6) , NSSF ( 86 ) , NSRF ( 86 I ,NSXF ( 86 ) , NDSF ( 86 ) , SUSTF ( 86 ) , NL VP ( 86 ) 

5, NSTRRCI86) ,NYRSRC(86) ,LNDF( 861 ,NSTRST( 86) ,LNDATE( 86) ,NPR0(90>, 

6 KPRIJI 90) .CSXI90) ,LZ <461 ,RCOST( 60). KVEHI 60 ) , I MAGE I 830 ) . 

7 XSCHI 10,70) .PLSCHI 10,70) .XLVSUMl 20,50) .RECUR! 20 ,50 ) ,DUM ( A01 ) 

C 

ISM 0009 I ERR * 0 

ISN 0010 IF ( NCSTR.EO.O) RETURN 

ISN 0012 NR = PROG 

ISN 0013 DO 100 I - 1 ,NCSTR 

ISN 00 1A J = NPROGI I ) 

ISN 00 15 K = K PROG I I ) 

ISN 0016 IF ( J.NE.NR.AND.K.NE.NR) GO TO 100 

ISN 00 1H MP= KOUEI I I 

ISN 0019 IF (MP.LT.l. OR.MP.GT.il) GO TO 100 

ISN 0021 GO TO (10,20,30,60,50,60,70,110,90,91,92), MP 

ISN 0022 10 DT = CSI I ) 

ISN 0023 IF IS(J).LT.(SIK)CRIK) t DT)) GO TO 110 

ISN 0025 GO TO 100 ' 

ISN 0026 20 DT = CSI I) 

ISN 0027 IF <<S( J)£R(J)tOT).GT.S(K)l GO TO 110 

ISN 0029 GO TO 100 

ISN 0030 30 IF( SI Jl.NE.CSI 1 1 ) GO TO 110 

ISN 0032 GO TO 100 

ISN 0033 AO IFUSIJ) i R(J) - l.O).NE.CS(I)) GO TO 110 


D-20 



ISN 0035 
ISN 0036 
ISN 00 38 
ISN 0039 
ISN 0090 
ISN 0091 


ISN 0093 
ISN 0099 
ISN 0095 
ISN 0097 
I SN 00 9 H 
I SN 0050 
ISN 0051 
I SN 0052 
ISN 0059 
ISN 0055 
ISN 0056 
ISN 0058 
ISN 0059 
ISN 0060 
ISN 0061 
ISN 0062 


GO TO 100 

80 I F 1RIJI.NE.CS1II) GO TO 110 

GO TO 100 
60 OT = LNOATEIJl 

ET = LNDATEIK) _ , 

IF( ( SI J1C0TECSII 1 1 .GT.I SIKIEET1 .AND.I SI J> t OT t CSI I )) .LT. ITREF £ 

1 20.lt 

1 GO TO 110 
GO TO 100 

70 OT = LNOATEIJt - 1 

IF (IS(J) £ OTI.GT.CSI I II GO TO 110 
GO TO 100 

90 ifisiji.lt. csi ill go to no 

GO TO 100 

91 OT = LNOATEIJt - 1 

IF USUI £ DTI.LT.CStlll GO TO 110 
GO TO 100 

92 OT = LNOATEIKI -1 

IF 1 1 SI JI£R(JI£CSI 1 1 l.GT.I SIK) £DT 1 1 GO TO 110 
100 CONTINUE 
RETURN 
110 IERR = 1 
120 RETURN 
END 


**«*«* ENO OF COMPILATION •**•** 


F88-LE VEL LINKAGE EDITOR OPTIONS SPECIFIED U ST ,XREF , MAP, NCAL 

VARIABLE OPTIONS USEO - SIZE=( 126976.295761 DEFAULT OPTIONISI USED 

IEW0000 NAME M0X02CRIR1 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

origin* 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

CONST R 

00 

9F2 








SAV2 

«F8 

FEO 








SCRACH 

14D8 

6A60 









LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

100 

SAV2 

SAV2 

109 

SCRACH 

SCRACH 

108 

SCRACH 

SCRACM 

IOC 

SCRACH 

SCRACH 

110 

SCRACH 

SCRACH 

119 

SCRACH 

SCRACH 


ENTRY ADDRESS 00 

TOTAL LENGTH 7F38 

*»*«M0X02CR NOW REPLACED IN DATA SET 
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FORTRAN IV G LEVEL It MOO A 


OAT INS 


DATE = 71312 


1 7/AB/A7 


OOOl 


0002 
0003 
000 A 
0005 


0006 

0007 


0008 


0009 


0010 


00 1 1 
0012 


0013 


001 A 


0015 


0016 

0017 


0018 


0019 
00 20 
0021 
0022 
002 3 
002A 


0025 

0026 

0027 

0028 
0029 
00 30 
00 31 
0032 
00 33 
003A 

0035 

0036 


0037 

00 38 
0039 
OOAO 
OOA 1 
00A2 
OOA 3 
OOA A 
OOA 5 


SUBROUTINE OAT INS 

C ALL CUS1 DATA A SSOC I ATED W I TH VEHICLES IS INPUT - ALSO MISSION DATA 
DOUBLE PRECISION NAME 
REAL NPFRPD, LEVEL 
LOGICAL EXT * AC CL 

INTEGER *2 YOPL , NSVR , NSEX ,NRE X ,NYR SS T ,N STR F X , NPROG, KPRUG , KOBE , 

1 NYRSFX ,KODFM, KODE SP , NU , NBY , MOOR , NOD , F I N1 SH , NS TG , NFML ,NFMU,Kl)DS» 

2 MAS, LABS. LABE, LAB I , L SA , NY S , KODFF , L ST , MST , 1 ST , .1 ST , KS T , VE H, NYD , 

3 nmolt,nonrec,is,mat,lyr,lett,lyd,min,nvs,mrv,nrp,nyp,kodep, 

A IVEHA ,NTRIP,NPLS,NRR , MR , NPSTG , NP AD , NPF AM , NFS , NP I NTL , NP I NTU , MAPS , 
5 M APE .MAPI « KOUT , LTR , KODE V, NINTYR.NTGYTR ,MAF ,MA!C 
C 

COMMON/SAVER/ RFIX0(12,8A) 

COMMON/SAVOMP/ NFAM , KF LAG , FAM 1 30) ,KOOEF( 30 1 , FMNR I 30 1 .FMSUS I 30 1 , 
1JST130) ,YDF(30> .LSAIAO) , SNR I AO) .NYSIAOI .OINTI AO) , SINT! AO! ,KST|AO), 

2 YDI (AOI .YDSIAO) ,IST( AO ) , FMSL SI 30 , 2 ) , SO SLS I AO , 2 ) , S INTLS I AO , 2 1 , 

3 LST I 30, 5 ) , YOPE ( 30,5 ) ,MS1( 30, 10) , YDPSI 30, 10) 

CDMRON/SAVSAR/COR ,PDJ( 3) , SRJI 3,3) ,NUI AO) , NBY I AO) , NOB I AO) , R I NT I AO ) , 

1 PLC I NT I AO) .XLTIAO) , PLC T I AO ) , UPP I AO ) , TAT I A 0 ) , TA MT I 50 ) , SR I AO , 3 I , 

2 MODE! AO, 3) ,PLC(A0,3) 

COMMON/ SAVE 1/ FINISH, NSTG,NC I, ILY.LABFI 30 ) , LABS I AO ) , L AB I I AO ) , 

1 NFMLI AO) ,NFMU( AO) ,KOOS( AO) ,STS( Al) ,STGI AO) , VLR I 50 ) , WPR I 50 ) , 

2 RPLM I 50') ,MAS!A0»3I, RX0(12,50> 

COMMON/ SAV2/EXT ,ACCL,KNSTG,KNFAM,KNCI , KNP , KNM I S , J FL AG, TREE , NCST R , 

1 PMAX.PMIN, ISTRT, IFIN,MAXITR,MITR,K0DESPI6) , T I TL E I 10 ) , LE VEL 1 20 1 , 

2 CNTP.VL I 20) ,F IXEOI 201 .KOOEMI 50) ,NSYR( 50) ,NSFX( 50) .NAME I 56) , 

3 YDPLI 56) ,NRFX1 501 ,NYR SSTI 8A) , NSTRF X I RA) , NYRSFX I 8A ) , SUS I B A I ,C I BA ) 

' A, PIHA), SI 8A) ,CS( 90) ,NPP.OG( 90) ,KPP.0G(90) , K00EI90) 

CIIMMUN/SAV3/GR0, GUESS, LP.NSOL.MSOL ,NP, MUS , NMI S ,NSPR , NPERPD I 30 ) , 

1 PAD! 30) ,LTR< 50) ,PI.R( 50) .RDISTI 56, A I ,ALP1 1 A, 60) 

COMMON/ SAVA / MAE I 30, 3) , MAICIA0.3), 

* NPAIH 2,60) , NPF AM I 30,5) .NPINTLI 30,5) .NPINTUI 30,5) , 

1 NFS (AO, A I .NPSTGC30, 10 I , MAPS I 30, 1 0 ) , MA PF I 30, 10) , MAP I I 30 , 1 0 ) , 

2 PFAMOI 30,5,21 , PE AMS I 30,5,2) .PINTS I 30,5, 2) , PST GDI 30,10,2) , 

3 PSTGSI 30, 10,2) 

COMMON/ SVACAV/ KNV ,NUPT , KOOE P(30),RPLOI AO ) , I VEHA I 50 1 , NT R I P I 50 ) , 

1 NPLSI 50) ,NRR(50I,MR(50) .NVSI60) ,MRV( 60) , NRP I 60 ) , B 1 1 60 ) , B2 I 60 ) , 

2 B3 I 60 ) ,BA( 601 ,KOO£VI 60) ,NYPI 2,60) ,VM(2,60) 

commun/savall/lck,slo,nm,nexd,nv,numd,myrs,lzoptib) ,nydi A6) ,matia6 

1 ) ,SUST( A6) ,0S(A6) ,LYD( A61.Y0IA6) ,IS( 102) , LYR 1 252 ) , LETT 1 250) , 

2 MINI 250) , YRLMI 250) , VEHI A, 60) , NONREC I 120,20) .NMULTI 60,50) 
COMMON/VARNCE/KSTAT.VARl IA0),VARF(50) , VARMI 56) ,FMVARI2,30) , 

1 F!VARI3,A0),PLVAR(3,56),SVARI5,A0) 


COMMON/TEMP/VNMI 2,2501, I FLAG, K I, NEXT, LOUT, SAVS I AO) .KOUTIAO), 

1 NINTYR(A0,2O),NTGYTR(A0,20,2),RECURI 60 ,20,2) 

COMMON/ SCR ACH/ IP, I V , I G ,MOOX I 3 ) ,NFX( A) , NPF AX I 5) ,LSX( 5) ,NPINXL (51, 

1 NPINXUI 5) ,NPSTX( 101 ,MSX( 10) , LZ I 20) , PBI 50) , MI SNI 50, 20 ) ,DUM 1 1 382 ) , 

2 RC0STI60) ,RXM( 50) , I I ,KNSP,KLCK, IM,DUMM(3962 ) , SRXXI 3 ) ,XX I 3 ) , 

3 PXI56),CX(56),SXI56),TRX(56) 


DEVELOPMENT COSTS 
NSOC WHILE BATCHING 


READ! 5,1001 LP.NOPT , MOS ,NSOL ,MSOL ,M I TR , I L Y, MYRS , TRE F ,GUE SS , GRO , 

I SLO.COR, IP, IG, IFM, I I, IM, ISO, IV 

C ***IG IFM II IM ISO AND IV ARE VARIABLES FOR BATCHING ONLY *** 

IF IMYRS.EO.O) GO TO 806 
WRITE I 6, 10A ) 

GRO = GRO/ 100. 0 
IF! IG.LT.O) GO TO 12 
WRITEI6.213) 

LX = 0 

C NSDC = NUMBER OF SPECIAL 
C WARNING - OON 1 T USE 

NSOC = 0 
DO 8000 I = 1 ,A0 

RE AOI 5,101) KODX , STGII) , (SRI I, J) , J=l,3> ,( PLCI I,J> ,J=1,3), 

1 SNR(I),STS(I),LXX,NBX,(NFXIJ),J=1,A),(M0DX(J), J=l,3) 

IF I KOOX.EO.O) GO TU 12 
KOOSI I ) = KODX 
LSAI1) = L XX 
NHYI I ) = NBX 
00 8010 J = 1,3 
NESI I , J ) = NF X I J I 
8010 MODE I I, J) = MODXIJ) 

NFS! 1 , A ) = NFXIA) 

IF I LCK.NE. l.ANO. (PLCI 1 , 1 1 . GT, .001 . OR , PL C( 1 , 2 ) .GT . .00 1 .OR .PLC (1,3). 
1GT . .001 I ) LCK = 1 

C INPUT NUI1I LF -2 IF WANT PROGRAM TO CALCULATE ESTIMATE FOR NIJ 
READ (5,111) I 

1 


READ 1 

15,111) 

(SUSLSI 

i 

, j ) , j = 

1,21 , NUX, UPP 

YDS ( 

I 1 , ISX.NSXF.I 

! SR 

XX f J > , J 

= 1,3) , XX( 1) ,: 

NIJ ( I ) 

= NUX 






1 -3 T ( I ] 

i = ISX 






NS 1 G = 

* NSTG ♦ 

1 





LA(r>( 1 

f ) = 0 






NOS = 

YDS ( I ) 






NY$ ( I ) 

i = MAXO( 

1ST! 1 

[ ) 

- 

ILY + 

NDS , 1) 

WRITE 1 

16,112) 






WRITE 

(6,8001) 

STGI 

: i ) 

» 

I SRI I, 

J) , PLC I 1,J) ,. 
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1 NVSII I.LSAI I I, (NFS! I , J ) , J= 1 , A ) ,NBY( I) 


0046 


IFIXXID.GT.. 00011 CALL MEAN! XX ill ,KSTAT, SVARtl , 1 ) , SRXXl 1 ) , 
1 SR I 1 , 1 1 ) 

0047 


I F< XX 11). GT.. 0001. AND. SR I I . 2 1 .GT . . 000 1 ) 

1 CALL ME AN (XXI 11 , KSTAT.SVARI 2 , I ) , SR XX ( 2 ) , SRI 1,2)1 

0048 


I FI XXI 1 l.GT.. 0001. AND. SRI 1 .31. GT.. 0001) 

1 CALL MEAN1XX1 1 1 . KST AT , SVAR ( 3, 1 1 , SRXXl 3) , SR( 1,31) 

0049 


I E( XXI 2 1 .GT ..0001 ( CALL MEAN! XX 1 21 .KSTAT, SVAR 1 A, I ), SNR XX, SNR 1 1 ) ) 

0050 


IF (XX (3 l.GT.. 000 11 CALL MEANI XX 1 3) , KSTAT, SVAR ( 5, I 1 , STSXX.STS 1 I 1 1 

0051 


UP = UPPI 1 1 

0052 

• 

1EIPXX.GT.. 00011 CALL MEANI PXX, KSTAT, VARI I 11 , UPPXX.UPP1 I )) 

0053 


IF! XXI 1 1 .GT.. 001. OR. XX 12 l.GT.. 001. OR. XXI 3 l.GT.. 001 1 
‘WRITE (6,8001) STGI I 1 ■( SRI 1 , J), PLCI 1, J) , J= 1 ,3 1 ,SNRt I ) ,STS( 11 • 
1 NVSI 1 1 ,LSA( II.INFSIl ,J», J=1,A1 ,N8Y( I 1 

0054 


DO 8002 J = 1,3 

0055 


IF I MODE 1 I , J 1 .ED.0 1 GO TO 8002 

0056 


LX = LX + 1 

0057 


MODE I 1 , J I ■= LX 

0058 


READ! 5 , 8003 1 (SRJILX.K), K = 1,31, POJI LX) , SR JXX , PXX 

00 59 


IFIPXX.LT. .0001) GO TO 8011 

0060 


CALL MEAN! PXX, KSTAT, SVAR I J,I ) ,SR JXX, SR J I LX, 1 ) ) 

0061 


SRJILX.2) = .5*SRJ(LX,2)*(EXPI1.5*SVAR(J,IM + 1.0) 

0062 


SR J I LX , 3 ) = .5«SRJ(LX,3)*IEXP(1.5*SVAR( J,l)) ♦ l.o) 

0063 

8011 

WRITE (6.800AI J,POJ(LX),SRJ(LX,l),POJ(LX),ISRJ(LX,K),K=2,3) 

0064 

8002 

CONTINUE 

0065 


IFINUI.I ) .NE.O) WRITE! 6,8005) UPPI ! > ,t)P 

0066 


IFINSXE.EO.OI GO TO 8000 

006 7 


NSOC = NSOC + 1 

0068 


REA0I5, 110) NRXF, I RXOI J .NSOC) , J = 1 , 1 21 , RXDXX, PXX 

0069 


NRFXINSDC) = NRXF 

00 70 


NS F X 1 NSOC ) = NSXF 

00 71 


NX - NRFX I NSOC ) + NSFX(NSDC) - ILV 

0072 


NOS » NYSI I ) 

0073 


NYSI I I = MAXOINOS.NX ) 

0074 


LABS! I ) = NSOC 

0075 


WRITEI6.113) 1 RXO I J , NSOC I , J = 1,12) 

0076 


IFIPXX.LT. .0001) GO TO 8000 

00 77 


RX = 0.0 

0078 


00 500 J = 1,12 

0079 

500 

RX = RX ♦ RXOIJ.NSDC) 

0000 


CALL MEANI PXX, KSTAT, VARFI NSOC), RXDXX, RX) 

0081 


DO 501 J = 1,12 

0082 

501 

JtXOIJ.NSOC) = .5»RXD( J,NSOC)*(EXPI 1 . 5*VARFI NSDC1 ) + 1.01 

0083 


WR I TE 1 6 , 1 13 1 (RXOIJ.NSDC), J = 1,12) 

0084 

0000 

CONTINUE 

0085 

12 

IF! IFM.LT.OI GO TO 1A 

0086 


DO 13 J * 1,30 

0087 


READ! 5, 102) I.FAMI I ) , FMNRI 1 1 .FMSUSI I ) . Y OF f I ) , JX.NSXF , 
1 (EMSLS(I,K),K«1,2),FMNRXX,XX(1I,FMSSXX,XXI2I 

0088 


IF! I.EO.OI GO TO 1A 

0009 


IFIJ.EO.l) WRITEI6.21A) 

0090 


NF AM = NFAM ♦ 1 

0091 


JSTI I ) = JX 

0092 


LABE I 11*0 

0093 


KOUEFIJ) = I 

0094 


WR I TE I 6, 1 12 ) 

0095 


WR1TE(6,21AI)K00EF( J), FAM I I ) .FMNRI 1 ) .FMSUSI I ) 

0096 


IF I XX I 1 ) • GT .,0001) CALL MEAN! XXI 1 ) , KSTAT, FMVARI 1 , 1) , FMNRXX , 



1 FMNRI 1)1 

0097 


IF (XX I 2 l.GT.. 0001) CALL MEANI XXI 2 1 , KSTAT, FMVARI 2 , 1 ) , FMSSXX , FMSUS 1 1 

m 

IF I XXI 1 l.GT.. 001. OR. XXI 2 l.GT., 001) 

0098 




1WR1TFI6,21A1 IKODFFI J 1 , FAM 1 1 ), FMNRI I) .FMSUSI I) 

0099 


IFINSXE.EO.OI GO TO 13 

0100 


NSOC = NSOC ♦ 1 

0101 


READ! 5, 110) NRXF, 1 RXDl J1 ,NSOC ) , Jl«l, 12) , RXDXX, PXX 

0102 


NSFXINSDC) ■= NSXF 

010 3 


NRFX I NSOC ) = NRXF 

0104 


LA8FI 1 1 = NSOC 

0105 


WR I TE 1 6, 1 13 1 IRXDI Jl.NSOCI, Jl • 1,12) 

0106 


IFIPXX.LT. .0001) GO TO 13 

0107 


RX = 0.0 

0108 


00 50A Jl = 1,12 

0109 

504 

RX = RX ♦ RXOI J 1 .NSOC ) 

0110 


CALI ME AN! PXX, KST AT, VARFI NSOC) .RXDXX, RX) 

0111 


DO 505 Jl * 1,12 

0112 

505 

RXOI Jl , NSOC) = .5*RXI)I J1,NSDC)*IEXP( 1.5*VARF(NSI)CI ) ♦ 1.0) 

0113 


WPITLI6.1 13) IRXOI Jl.NSOCI, Jl • 1,12) 

oi i* 

13 

CUNT INIIF 

0115 

14 

IFI U.LT.01 GO TO 1716 

0116 


00 1715 1 = 1 , AO 

0117 


RE ADI 5, 1031 J.K.RINTI 1 ) .PLCINTt I ) .DINT I 1 1 ,SINT( I 1 , YD III ) .KX.NSXF, 
1 (SINTLS1 I,L), L=1 ,2 1 

0118 


IFI J.FO.O) GO TO 1716 

0119 


IF(I.EO.l) WR1TEI6,215) 

0120 


RE ADI 5,108) RINTXX, XXIII, DINT XX, XX(2),S! NT X X-, XXI3) 
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0121 


1FILCK.NE.1.AND.PLCINTI 1I.GT..001) LCK = 1 

0122 


NCI = NCI ♦ 1 

0123 


LABI! 11=0 

0124 


K ST 1 I ) = KX 

0125 


NFMLI I ) = J 

0126 


NFMIJI 11 = K 

0127 


WR I TE I 6 , 1 1 2 1 

0128 


WRITEI 6,2161 FAMI J) ,FAM(K) , RI NT ( I ) ,PLC INT (I), DINT! I), SI NT II) 

0129 


IFIXXI 1I.GT..0001) CALL MEAN! XXI 1 1 .KSTAT, F 1VARI 1 , I ) , RINTXX, 
1 RINTIDI 

0130 


1F(XX(2I.GT..0001) CALL MEAN! XXI 2 ) , KSTAT , FI VARI 2, I 1 , OINTXX, 
1 DINT ( I ) I 

0131 


!F( XX( 3) .GT..00001 1 CALL MEAN! XXI 3) , KSTAT ,F! VAR ( 3, 1) .SINTXX, 
1 SINTim 

0132 


IFIXXI 1).GT..001.0R.XX< 2 1. GT.. 001. OR. XXI 31. GT.. 001) 

1W RITE I 6, 216) FAMI J ) ,FAM( KI ,RINT( I ) .PLCINTI I ) ,D I NT I I ) ,S INT 1 1 ) 

0133 


IF (NSXF.EQ.O) GO TO 1715 

0134 


NSDC = NSOC + 1 

0135 


RE ADI 5 , 1 1 0 ) NRXF, (RXOIJ.NSDC), J = 1 , 1 2 1 , RXDXX ,PXX 

0136 


NRFXINSDC) = NRXF 

0137 


NSFXINSDC) = NSXF 

0138 


LARI I I ) = NSDC 

0139 


WR I TE 1 6, 1 13) 1 RXDI JtNSDC) , J = 1,12) 

0140 


IFIPXX.LT. .00011 GO TO 1715 

0141 


RX = 0.0 

0142 


DO 502 J = 1,12 

0143 

502 

RX = RX + RxnlJ.NSOC) 

0144 


CALL MFANIPXX, KSTAT, VARF(NSOC) , RXDXX, RX) 

0145 


DO 503 J = 1,12 

0146 

503 

RXDIJ.NSDC) = .5*RX0< J,NS0C)*IEXP( 1 .5*VARF (NSDC ) ) *1.0) 

0147 


WRITE 16, 113) (RXDIJ.NSDC), J = 1,12) 

0148 

1715 

CONT INUE 

0149 

1716 

IF ( IP.LT.O) GO TO 9002 

0150 


DO 9004 I = 1,30 

0151 


REA0I5, 90051 Jl, PAOI I 1 .NPERPDI 11 

0152 


IFIJ1.E0.0) GO TO 9002 

0153 


IFII.EO.il WRITE (6,9003) 

0154 


KOOEPI I ) = Jl 

0155 


WRITE (6,9006) KOOEPI D.PADI I), NPERPDI I) 

0156 


NP = NP + 1 

0157 


READ! 5,5000) (NPSTXI J) ,PSTGD( I , J, 1 > ,YDPS( I , J > ,MSX( J > , PSTGSI I ,J,1 ) 


1* PSTG0(I,J,2),PSTGS(I,J,2), J=l,10) 

0150 


DO 700 J = 1,10 

0159 


MSTI 1, J) = MSXI J ) 

0160 

700 

NPSTGI I , J ) = NPSTXI J ) 

0161 


RE AOI 5 , 5000) (NPFAX1 J) , PFAMOI 1,J,1),YDPF ( I, J),LSX(J ), PFAMSIl, J,l) 


l, PFAMOI I ,J,2) .PFAMSIl ,J,2> , J=l,5> 

0162 


RE ADI 5, 5002) ( NP INXLI Jl .NPINXUI J I • (PINTS! I,J,K),K=1,2),J«1,5) 

0163 


00 701 J = 1,5 

0164 


LSTI I,J) = LSX(J) 

0165 


NPFAMI I,J) = NPFAXI J ) 

0166 


NPINTLI I , J ) = NPINXLI J) 

0167 

701 

NPINTUI I , J » = NPINXUI J) 

0168 


DO 9022 J = 1,10 

0169 


IF (NPSTGI I,J).EO.O) GO TO 5009 

0170 


00 9023 L = l.NSTG 

0171 


IF (NPSTGII.JI.NE . KODE (LI) GO TO 9023 

0172 


NPSTGI I , J) = L 

0173 


WRITE I 6,5003) STGIL), (PSTGD 11, J,K), PSTGSI I , J ,K) ,K= 1, 3) 

0174 


GO TO 9022 

0175 

9023 

CONTINUE 

0176 

9022 

CONTINUE 

0177 

5009 

DO 5006 J = 1,5 

0178 


IF (NPFAMI I, JI.EO.O) GO TO 5007 

0179 


L = NPFAMI I, J) 

0180 

5006 

WRITE I 6, 5 004) FAMI LI, (PFAMOI I , J,K) , PFAMSI I , J , K) ,K=1,3) 

0181 

5007 

00 5008 J = 1,5 

0182 


IF (NP INTLI I ,J) . EQ.O ) GO TO 9004 

0183 


L = NPINTLI I, J) 

0104 


LX = NPINTUI 1 , J » 

0185 

5008 

W R I T L 1 6 ,5005 1 FAM(L),FAM(LX),(PINTS(I,J,K),K = 1,3) 

0186 

9004 

CONTINUE 

0187 

9002 

IF! IM.LT.O) GO TO 19 

0188 


DO 1719 I = 1 ,MYRS 

0189 

1719 

L Z I I ) = I LY+ I — 1 

0190 


WRITE(6,217) I LZ I 1 ) , 1 =1 ,MYRS ) 

0191 

1717 

00 1718 1=1,50 

0192 


RE AOI 5, 105) KM, NAME I I) ,P8( I 1 ,NSYX , NYRS XF , VLR (1) , RPLM I I ) , TAMT II), 
1 WPRI I) ,NTP, (MISNI I ,J) , J= 1 , MYRS ) 

0193 


IFIKM.EO.O) GO TO 1720 

0194 


KOUEMI I ) = KM 

0195 


NSYRII) = NSYX 

0196 


NYRSFXI I 1 = NYRSXF 

0197 


NTRIPII) = NTP 

0198 


NMIS = NMIS + 1 

0199 


READ! 5, 107) PLRI II , SUSI I ) ,C( I ) ,NDPL , I RDISTI I , L) ,L = 1 ,4 ) ,NPS ,MRX , 
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0200 

0201 

0202 

0203 

0204 

0205 

0206 
0207 

020B 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 
0217 
02 IB 

0219 

0220 
0221 
0222 
022 3 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 


0234 

0235 

0236 


0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 
02 51 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 


1 LRX.NR.IIS.IVAX 
YOPLt I I = NDPL 
NPI.SI I 1 = NPS 
MR 1 I I = MRX 
LTRI 1 I = MAXOI LRX, 1) 

NKkl I 1 » NR 

IS! I I = 1900 + IIS 

I VI: HA ( 1 I = I VAX 

WR I TE I 6, 2 19) 1 1 NAME (II* VLR 1 1 1 , WPR (1) , PB 1 1 ) , LTR (I) , 

1 <M1SN(1,J),J=1,MYRS) 

PX1 1 I = PLRI 1 I 
CXI 1) = Cl I 1 

sxi i ) = susi i ) 

READ (5*108) PLRXX.XXIl ),CXX,XX12) ,SUSXX,XX( 3) 

IP (XXI 1I.GT..0001I CALL ME AN! XX I 1 ) , KSTA T, PL VAR 1 1 , 1 ) , PLRXX , PL R I I > > 
IP(XX(2).GT..0001) CALL MEAN! XXI 2 ) , KSTAT , PLVAR 1 2, I ) ,CXX ,C 1 1 ) I 
IF(XX(3).GT..0001) CALL MEAN! XX I 3) , KSTAT, PLVARl 3, 1 ), SUSXX , SUS 1 1 > ) 
RXMl 1 ) = 0.0 

7RX< 1 ) = 0.0 

1MNYRSFX1 I I.EO.O) GO TO 1718 

R) AIMS, 110) NSrRXF, (REIXUIJ.lt, J"= 1 , 1 2 ) ,R XDXX , PXX 
NSTRPXI 1 I « NSTRXF 
IKI 520 J = 1,12 

520 RXMl II = P.XM1II ♦ RFIXDIJ.I) 

TP X I It = RXMl I ) 

1P1PXX.lt. .00011 GO TO 1718 

CALL Ml: AN I PXX, KSTAT , VAR Ml l ) ,RXOXX,RXM( I )) 

(ill 522 J = 1,12 

522 kllXIKJ.l) = .5*RFIXD( J, I )*l EXPI 1.5*VARM( I)) ♦ 1.0) 

1718 CONTINUE 

1720 WR I Tfc 1 6 , 1041 

Dll 1721 1 = l.NMIS 
WRITE (6, 112) 

IF1KSTAT.GT.0I WR I TEI 6, 109 ) I .NAME I 1 1 ,PX 1 I ) , (RDISTI I ,L) , L = 1 ,4) , 

* CXI I ) , Y0PL1 I ), IS! I ) ,SX( I I ,TRXI I) 

1721 WRITE (6, 109) I .NAME! 1) ,PLR( I) , (RDISTI I ,L ) , L= 1 ,4 1 ,C( D.YDPL1 1), 

1 ISII)fSUS(I), RXMl 1 ) 

19 I F I I SO.LT.O) GO TO 20 

C INPUT SPECIAL PROGRAMS HAVING NO ASSOCIATED LAUNCHES 
C KODFSP GT 100 

DO 1725 I = 1,6 
K = NMIS ♦ I 

READ! 5, 106) KO , NAME 1 Kl , C I K I , NDPL , 1 1 S , SUS I K ) , NS T , NYRS XF , CXX , XX (1 ) , 
1 SUSXX, XX12I 
IF1KO.EO.OI GO TO 20 
KOOESP(I) = KO 
Y0PL1KI = NOPL 
I S I K I • 1900 ♦ IIS 

NYRSSTIK) = NST 

NYRSFX(K) = NYRSXF 

NSPR = NSPR + 1 
1F11.E0.1) WR ITEI6, 1 141 
WRITE16.112) 

WR I TE 1 6 , 1 1 5 ) I,NAME(K),C(K), SUS (K),IS1K),NDPL 
IF1XX11I.GT.. 00011 CALL ME AN! XX 1 1 ), KSTAT , PLVARl 2,K ) , CXX, Cl K ) ) 
IF(XX12).GT..0001I CALL MEAN! XX 1 2 ), KST AT, PL VAR 1 3, K), SUS XX, SUS IKI) 
IF! XXI 1 1 .GT ..001. OR. XXI 2), GT. .001 ) 

♦WRITE 16, 115) !,NAME(K),C(K), SUS (K),IS(K),NDPL 
IF1NYRSXF.E0.0) GO TO 1725 

RE ADI 5 , 110) NSTRXF, (RFIXDIJ.K), J= 1 , 1 2 ) , RXDXX , PXX 

NSTRFX(K) = NSTRXF 

WR I TE 1 6, 1 13) (RFIXDIJ.K), J = 1,12) 

IF1PXX.LT.. 0001) GO TO 1725 
RX = 0.0 
DO 521 J = 1,12 
521 RX = RX + RFIXDIJ.K) 

CALL MEAN1PXX, KSTAT, VARMIK), RXDXX, RX) 

DO 523 J = 1,12 

523 RFIXDIJ.K) = .54RFIXD1 J,K)*(EXP( 1.54VARMI K) ) + 1.0) 

WRITEI6.113) (RFIXDIJ.K), J = 1,12) 

1725 CONTINUE 

20 IFUG.LT.O) NSTG = KNSTG 
IF! 1G.LT.0) LCK = KLCK 
IF1IFM.LT.0) NFAM = KNFAM 
IFU1.LT. 0) NCI = KNCI 
IF (JP.LT.O) NP=KNP 
IFI 1 SO.LT.O) NSPR=KNSP 
1 F I IM.LT.O) NMIS = KNMIS 
RETURN 

806 WR I TE I 6 ,4 102 ) 

99 RETURN 

100 FORMAT I8I3,F5.1,F12.2,F3.1,F5.1,F4.2,13X,7I2) 

101 FORMAT I !2,1X,A4,3F6.3,3F5.3,3X, 2F6. 3, 3X.6 13, IX, 31 1 1 

102 FORMAT! I2,1X,A4,2F10.0,F4.1,2I3,2F10.0,F7.0,F3.2,F7.0,F3.2) 

103 FORMAT I2X,2I3,4F10.0,F4.1,2I3,2F10.0) 

104 FORMAT tlHl) 
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0279 

0280 
0281 
0282 


0283 

0289 

0285 

0286 

0287 

0288 


0289 


0290 


029 1 

0292 

0293 

0299 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 


0303 

0309 


0305 


0306 
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0309 
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105 FORMAT ( I2,A6,F9.2,2X,2I2,F7.0,2F3.0,F7.0,12,20I2) 

106 FORMAT! 13* A6 ,F 10. 2, 1 5 . 1 2 ,F10. 2, 2 1 2 ,F1 0.2, F3. 2 , F 10.2 ,F3 .2 ) 

107 FORMAT 1 2X.3F10.2, 15, 9F5.3, 10X,5I2,13) 

109 F0R^n{?'w2?;S;Al;I".9HPLR=,F6.1,8H D1ST BY, 9! F3.2.2H, ),5H DEV», 

2 5H^ * FOR ,15, 19H YRS START I NG, 1 6, 2 X , 5HSUST= , F 8. 1 , 3X , 6HF 1 XED= , F8. 1 ) 

110 FORMAT ( I3,12F5.2,F6.1,F3.2> , c , , c , . 

111 FORMAT (9X,2F5.0,I3,F6.2,F6.1,F3.2,F6.0,F2.0,2I2,3F5.1»F3.2,F6.1, 

*F3.2,F6.1,F3.2I 

112 FORMAT ( 1H I 

113 FORMAT ( 19H FIXED COSTS =, 12F9.2) 

119 FORMAT UH1.9X, 'SPECIAL PROGRAMS'//) 

115 FORMAT ! 1H , 1 3 , IX , A6 , 3X , ' OE V = ' ,FR . 2 , 3X , SOST - .F8.2.3X, 

* ■ [)FV STARTS', 1 6 , 3X , 1 FOR ' , 1 9 , IX , ' YE ARS ' ) 

213 FORMAT 1 16H STAGE COST DATA/ 6H0TITLE, 3(1 6H RECURRING LC ),68H 0 

1EVFL0PMENT SUSTAINING AVAILABLE SHARED COST GROUPS BATCH FACT/ 

2 10X , 10HIHAR0WAAE 1 , , 

3 6X.10H1ETR ONLY) ,6X, 10HI WTR ONLY ) , 30X, .8HFR0M JP/noMFNT c 

219 FORMAT ( 1H0///17H0SMARE0 COST OATA/37HONO. TITLE DEVELOPMENT S 

215 1 FORMAt' UHO///22HOINTEGRATION COST DATA/59H0L0WER UPPER RECUR 
1RING LC DEVELOPMENT SUSTA I N I NG/ 19H GROUP GROUP//) 

216 FORMAT ( 2X, A9,9X, A9, FI 1 . 2 , F7.3 ,2F 13.2) d*vi n*n p 

217 FORMAT ( 19H 1M 1 SS I ON MODEL /98H0 MISSION VELOCITY PAYLOAD P 

IRIORITY TR, 1 7X , 15HLAUNCH SCHEDULE / /SO X , 20 1 9/ 1 H / ) 

219 FORMAT ( IX , I 2, IX , A6, 2X, 2F10.0,F 10.2 ,9X, 12, 2X, 201 9) 

2191 FORMAT (IX,12,2X,A9,2X,2F13.2) rnupi ftfi 

9102 FORMAT ( 1 HO / //5X , 26HE NO OF DATA - JOB COMPLETE) 

5000 FORMATI2I2X, 12, F5.0.F3.0, 13, 3F5. 0,10X1) 

8002 FORMAT(8X,2I3,2F6.0,6X,2I3,2F6.0,6X,2I3,2F6.0,6X) 

5003 FORMAT ( 27X , A9, IX ,5HST AGE , 17X , 31 F9.2,FB. 2 ) ) 

5009 FORMAT <27X,A9,1X,6HSHARED,16X,3(F9.2,F8.2>) 

5005 FORMAT ( 27X , 1 5H INTEGRAT ION OF ,A9,5H AND , A9.BX ,F8.2 ,2 1 9X ,F8.2 ) I 
8001 FORMAT ,, ... . „ . 

1 UX,A5,1X,3(F9.2,F7.3),F13.2,F12.2,2X,I5,1X,I9,2X,9I9,I9) 

8003 FORMAT ( AX » 5F 10* 3 *F 3« 2 ) cno v i ccc than flR = . 

8009 FORMAT I 3X , 19HRECUP.R ING COST TYPE.I2.22H X 

1 F6.2.19H, TOTAL COST = , F6. 2 , 19H.F0R X GREATER THAN , F 6. 2 , 

80Q5^ FORMAT I^6H0 REUSABLE & ST AGE .^Axi^OHUNIT PURCHASE PR ICE= , F7 . 2 . • I', 

9003*FORMAT(1HO///19HOPAO COST DATA/12H0N0. COMPLEX, 2X, UHLAUNCHES/YR, 


1 37X.5HPAO 1.12X, 

2 5HPAD 2,12X,5HPA0 3/59X,3( IIHDEV SUST,6X)//) 

9005 FORMAT I 1 9 , 2X , A9 , F5 . 0 ) 

9006 FORMAT ( IX, I2,2X,A9,5X,F6.2) 

END 


TOTAL MEMORY REQUIREMENTS 003EDO BYTES 


D-26 



F88-LEVEL 

I EW 0000 
IF.M0461 I 


linkage editor options specified l * st ;^*^! map 

VARIABLE OPTIONS USED - SIZE*! 126976,24576) 
NAME M0X020SIR) 

BCUM = 


1EW046I MEAN 
1 EW096 L MAXO 
ILW0961 EXP 


DEFAULT OPTIONIS) USED 


MODULE MAP 


CONTROL SECTION 


NAME 

OAT INS 
SAVER 
SAVOMP 
SAVSAR 
savi i 
SAV2 
S AV3 
SAVA 
SVACAV 
SAVALL 
VARNCE 
I fcMP 
SCRACH 


URIGIN 

00 
3 EDO 
4E90 
6380 
60IM 
707 8 
8US8 
9 AO 8 
CHfSO 
D3A8 
100C8 
118A8 
159B8 


length 

3F00 
FCO 
1ABC 
A5C 
f C<* 
FEO 
980 
3188 
048 
3A1C 
ADC 
4110 
6A60 


ENTRY 

NAME LOCATION NAME LOCATION NAME LOCATION 


ENTRY A DURESS 00 

TOTAL LENGTH 1C418 

«*»«MOX020S NOW REPLACED IN DATA SET 


( 17) OS/ 360 FORTRAN H 


DATE 71.312/17.10.48 


COMPILER OPTIONS - NAME” MAIN. 0PT»02, LINECNT”44, SOURCE ,BCD,NOL 1ST .NODECK iLOAD.NOMAP, NOEDI T« ID. 
ISN 0002 SUBROUTINE OECSNI 

C 

C THIS SUBROUTINE SETS UP OS COSTS, CALCULATES AVAILABILITY OF EACH DECISION 
C COST, ANO MATCH'S THESE COSTS WITH EACH VEHICLE THEN PRINTS THEM OUT 
C 


ISN 0003 
ISN 0004 

ISN 0005 

ISN 0006 

ISN 0007 
ISN 0008 

ISN 0009 
ISN 0010 


REAL NPERPO 

INTEGER*2 LTR.NPSTG.NPAD.NPFAM, NFS, NPINTL.NPINTU, MAPS, MAPF, MAPI, 

1 FINI SH.NSTG ,NFML,NFMU, RODS, MAS, LABS, LABF ,LABI , L SA , NYS , KODEF , 

2 L ST, MSI , 1ST, JST.KST, VEH ,NMULT , NONR EC, NYD, I S , MAT , LYR , L ETT ,LYD, 

3 M]N,MAF,MAIC 

COMHON/SAVOMP/ NFAM,KFLAG,FAM(301,K0DEF( 301 , FMNR ( 30 ) , FMSUS I 30 ) , 
1JST(301,Y0F130),LSA(40I, SNR 1 40 1 , NYS I 40 ) »OINT 1 40 ) , S I NT! 40 1 »KST ( 40 1 , 

2 YD 1 1 401 , YDS 1 40) , I SI (401 ,FMSLS ( 30, 21 .SUSLS 1 40,2 ) , SINTLSI 40,2 I , 

3 LST<30,5),YOPF(30,5),MST(30,10) ,YDPS( 30,101 

COMMON/ SAVE 1/ FINI SH.NSTG, NCI ,ILY,L ABF ( 30 > , LAB S ( 40 ) ,L AB I f 40 ) , 

1 NFMLI40),NFMU(40I , K 00 S ( 40 > , STS I 4 1 ) , ST Gf 40 ) , VLR ( 50 ) , WPR ( 50 ) , 

2 RPLMI 50) .MAS 1 40, 3 I , RXDI12.50) 

common/sav3/gro,guess,lp,nsol,msol,np,mos,nmis,nspr,nperpd(3oi, 

1 PAD! 301 .LTRI50) ,PLR( 50) ,RD I ST ( 56 , 4 > , ALP I (4,60) 

CUMMUN/SAV4/ MAFI30.3), MA1C(40,3), 

* NPAD1 2 ,60) , NPFAMl 30,5 ) ,NP1NTL( 30,5 l.NPINTUI 30,5 I , 

1 NFS) 40,4) , N P S T G ( 30 , 1 0 ) , MAPS ( 30 , 1 0 I , MAPF I 30,10) .MAPI (30,10), 

2 PFAMD(30,5,2),PFAMS(30,5,2I ,P INTSI 30, 5, 2) ,PSTGD( 30, 10 , 2 ) , 

3 PSTGS ) 30, 10, 2 ) 

COMMON/SAVALL/LCK,SLO,NM,NEXD,NV,NUMD,MYRS,L2DPT(B),NYO(46),MAT(46 
1 ) , SOSTt 46) ,0S( 46) ,LYD( 46),YD(46) , I S ( 102) ,LYR{252> ,LETTI 250) , 

2 MINI 250) ,YRLM( 250) ,VEH(4,60) .NONREC 1 1 20, 20) , NMULT ( 60, 50) 
COMMON/SCRACH/LYFI 30 ) , NYFI 30 ) , DUM( 6748 ) 


ISN 0011 


C 

I F ( F IN I SH.GT , 1 1 GO TO 2 
C 

C ***SET UP OS COSTS FOR BRANCH AND BOUND PROCEDURE*** 

C CALCULATE AVAILABILITY OF EACH DECISION COST 

C 


ISN 

0013 

NUMD = 0 


ISN 

0014 

DO 3 I = l.NSTG 


ISN 

0015 

IFILSAIII.GT .MYRS) 

LSAI I ) 

ISN 

0017 

MAS! 1,1) = 0 


ISN 

0018 

X = LABS(I) 

LT..01I 

ISN 

0019 

IFISNRf DCSTSIDEX. 

ISN 

0021 

NUMD « NUMD t l 


ISN 

00 22 

DS ( NUMO) ”SNR II) 



= MYRS 


GO TO 9024 
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ISN 00 23 
ISM 002b 
ISN 0026 
ISN 0027 
ISN 0028 
ISM 0029 
ISN 0030 

ISN 0031 

ISN 0032 
ISN 0033 
ISN 0036 
ISN 0035 
ISN 0036 
ISN 0037 
ISN 0038 
ISN 0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0066 
ISN 0065 
ISN 0066 
ISN 0067 
ISN 0068 
ISM 0069 
I SN 0050 
ISN 0051 
ISN 0052 


ISN 0056 
ISN 0055 
ISN 0056 
ISN 0057 
ISN 0058 
ISN 0059 
ISN 0060 
ISN 0061 
ISN 0063 
ISN 0065 


IFILARSI I I.E0.0I GO TO 302 
L = LABS! I I 

00 301 K = 1,12 

301 DSINUMO) = DSINUMO) C RXOIK.LI 

302 SUST INIIMOMSTSI 1 1 
MATINUMO) = I 
MAS! 1,11 = NUMD 

C. NYO = FIRST YEAR COMPONENTS DEPENDENT ON DEV COST NUMD ARE AVAILABLE 
NYDINIIMO) = NY S I II 

C LYD = LAST YEAR COMPONENTS DEPENDENT ON DEV COST NUMD ARE AVAILABLE 
LYD(NUMD) = LSAIIl 
YD (NUMD I = YDS! I) i- 

NOUM = NUMD E NMIS £ NSPtR 
1SIN0UM) = 1ST! I ) £ 1900 
9026 DO 9025 J = 1,2 
MAS! I , J£1 I = 0 

1F( SUSLSI I , J) .LT..01.0R.NP.EQ.0) GO TO 9025 
NUMD = NUMO £ 1 
DSINUMOl = 0.0 
SUST INUMOI = . SUSLS I I • J I 
' MAT I NUMD I = I £ 2000 
MAS! I , J£1 I = NUMO 
NYDINIIMO I = NYSI I) 

LYD I NUMD I = LSAI I I 
YD (NUMD I =0.0 
NDUM = NUMO £ NMIS £ NSPR 
IS1N00M) = ILY £ 1900 
9d25 CONTINUE 
3 CONTINUE 

IFINFAM.EQ. 0) GO TO 601 
C CALCULATE FAMILY AVAILABILITY DATE 

C FIRST YR. FAMILY IS AVAIL. « 1ST YR. ANY STAGE IN THAT FAMILY IS AVAIL. 
DO 622 II = l.NFAM 
I = KOOEFI III 
LYFI 11=0 
622 NYFI 1 I = MYRS 

DO 623 J = l.NSTG 
DO 626 MS * 1,6 

1 = NFSIJ.MSI 

IF! I .E0.01 GO TO 623 
IFINYFIII.GT.NYSI Jll NYFI 1 I » NYSIJI 
IF(LYF(I1.LT. LSAIJII LYFII) - LSAIJl 


ISN 0067 
ISN 0068 
ISN 0069 
ISN 0070 
ISN 0071 
ISN 0073 
ISN 0076 
ISN 0075 
ISN 0077 
ISN 0078 
ISN 0079 
ISN 0080 
ISN 0081 
ISN 00 82 
ISN 0086 
ISN 00 85 
ISN 0086 
ISN 0088 
ISN 0089 
ISN 0090 
ISN 0091 
ISN 0092 
ISN 0093 
ISN 00 96 
ISN 0095 
ISN 00 96 
ISM 0097 
ISN 00 98 
I SN 0099 
ISN 0100 
ISN 010 1 
ISN 0103 
I SN O I 06 
ISN 0105 
ISN 0106 
ISN 0107 
ISN 0108 
ISN 0109 
ISN 0110 
ISN 0111 
ISN 0112 
ISN 0113 


626 CONTINUE 
623 CONTINUE 

DO 625 11 = l.NFAM 
I = KUOEFI III 

1FIYDFI 1 I. LE. 0.01. OR. NYFI I3.E0.il GO TO 625 
NX = YDFI I I £ .9 
NX = MAXOIJSTUI - ILY £ NX, II 
• IFINYFI I I.GT.NXI NYFI 1 1 * NX 
625 CONTINUE 

DO 6 11 = 1 , NFAM 
I = KOOEFI III 
MAFI 1,11 = 0 
X = LAOFI I I 

IFIFMNRI 1 ICFMSUSI I ICX.LT..01I GO TO 9026 
NUMO = NUMD £ 1 
DS (NUMD) = FMNRIII 
IFILABFI Il.EO.OI GO TO 306 
L = LABF(I) 

DO 303 K = 1,12 

303 DSINUMO) = DSINUMO) £ RXDIK.LI 
306 SUST I NUMD )=FMSUS( I ) 

MATINUMO) = -I 
MAF 11,1) = NUMO 
NYDINIIMO) = NYFI I) 

LYD I NUMD) = LYFII) 

YD I NUMO) = YDFI II 

NDUM = NUMO £ NMIS £ NSPR 

ISINDUM) = JSTI I) £ 1900 

9026 00 9027 J = 1,2 
MAFI I , Jf.l I = 0 

IF I FMSLSIl.JI.LT. .01 .OR .NP. EO. 0 I GO TO 9027 

NUMD = NUMD £ 1 
DSINUMOl = 0.0 
SUST IMIIMOI = FMSLS ( I , J I 
MATINUMO) = -I £ 2000 
MAFI I.JCll = NUMO 
NYU I NUMD) = NYFI I ) 

LYDINUMO) = LYFI I) 

YD I NUMD) = 0.0 
NDUM = NUMD £ NMIS £ NSPR 
ISINDUM) = ILY £ 1900 

9027 CONTINUE 
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ISN 

0114 

6 

CONTINUE 

ISN 

0115 

601 

IF(NCI.EO.O) GO TO 61 

ISN 

0117 


DO 60 I = l.NCI 

ISN 

0118 


JF = NFMLI I ) 

ISN 

0119 


KF = NFMUI I 1 

I SN 

0120 


HAICI 1,1) = 0 

ISN 

0121 


X = LARK I I 

ISN 

0122 


IFIOlNTtl IGSINTI I)£X.LT..01I GO TO 9028 

ISN 

0124 


NUMD = NUMD £ 1 

I SN 

0125 


DS (NUMD) = DINT! II 

ISN 

0126 


IFILABII I I.EO.O) GO TO 306 

ISN 

0128 


L = LARK 1) 

ISN 

0129 


DO 305 K = 1,12 

I SN 

0130 

305 

OSINUMOI = OSINUMOI 6 RXDI K , L I 

ISN 

0131 

306 

SU5T ( NUMD I =S INTI I) 

ISN 

0132 


MAT I NUMD ) = -100 -I 

ISN 

0133 

MAICI It n = NUMD 

C FIRST YR. INT. COST IS AVAIL, = 1ST YR. BOTH 

ISN 

0134 


NYO(NUMD) = MAXO(NYF(JF),NYF(KF)| 

I SN 

0135 


LYDINUMD) = MINOILYFIJFI.LYFIKFI) 

ISN 

0136 


IFIYDII I ) .LE. 0.01. OR. NYDI NUMD) .EQ.l) GO 

ISN 

0138 


NX = YO 1(1) £ .9 

ISN 

0139 


NX = MAXO(KSTII) t NX - ILY,1) 

ISN 

0140 


I F I NYDI NUMD). GT. NX) NYDI NUMD ) = NX 

ISN 

0142 

307 

YOINUMUI = YDII II 

ISN 

0143 


NOUM = NUMD £ NMIS £ NSPR 

ISN 

0144 


ISINOUM) = KST(I) £ 1900 

ISN 

0145 

9028 

DO 9029 J = 1,2 

ISN 

0146 


MAICI 1 , J£1 I = 0 

ISN 

0147 


IF I SINTLSt I, Jl .LT. .Ol.OR.NP.EQ.OI GO 

ISN 

0149 


NIIMO = NUMD £ 1 

ISN 

0150 


DS I NUMD I = 0.0 

I SN 

0151 


SUSTINUMU) = SINTLSI 1, Jl 

ISN 

0152 


MAT I NUMD I = -100 - I £ 2000 

ISN 

0153 


MAICI I, J£ll = NUMD 

ISN 

0154 


NX = YOI I 1 1 £ .9 

ISN 

0155 


NX = MAXOI KSTII) £ NX - ILY, 1) 

ISN 

0156 


NNX = haxoinyfijfi.nyfikfii 

ISN 

0157 


NYOINUMO) = M INOI NNX ,NX I 

ISN 

0158 


LYOINUMDI = MINOILYFIJFI.LYFIKFl) 

ISN 

0159 


YD 1 NUMD I = 0.0 

ISN 

0160 


NDUM » NUMD £ NMIS £ NSPR 

i SN 

0161 


IS! NOUM I = ILY £ 1900 

ISN 

0162 

9029 

CONTINUE 

ISN 

0163 

60 

CONT INUE 

ISN 

0164 

61 

IF INP.EO.OI GO TO 9010 

ISN 

0166 


DO 9011 I = 1 ,NP 

ISN 

0167 


00 9030 J = 1 ,5 

ISN 

0168 


MAPFI I ,J) = 0 

ISN 

0169 


IFIPFAMDI I, J, 1) £ PFAMSI I , J, 1 I .LT. .Oil 

I SN 

0171 


NUMO = NUMD £ 1 

ISN 

01 72 


OSINUMOI = PF AMD I I , J , 1 I 

ISN 

017 3 


SUSTINUMDI = PFAMSI I,J,1) 

1 SN 

0174 


MATINUMO) = -200 - I £ 2000 

I SN 

0175 


MAPFI I , J I = NUMO 

ISN 

0176 


NX = YDPFII.JI £ .9 

ISN 

0177 


NX = NX £ LSTI I ,J) - UY 

ISN 

0178 


NYDI NUMD 1 = MAXO I NX , 1 I 

I SN 

0179 


LYIMNUMD) = MYRS 

ISN 

0180 


YOI NUMO I = YDPFI I , J) 

I SN 

018 1 


NOUM = NUMO £ NMIS £ NSPR 

ISN 

0182 


ISINDUMI = LSTI I , J 1 £ 1900 

ISN 

0183 

9030 

CONTINUE 

I SN 

0 1 84 


1)1) 9031 J = 1,10 

I SN 

018 5 


MAPS! I ,J> = 0 

ISN 

0186 


IF (PSTG0(I,J,1I £ PSTGSI I , J, 1 1 .LT. .01 I 

ISN 

0188 


NUMD = NUMD £ 1 

I SN 

0189 


OSINUMOI = PSTGDI I , J , 1 I 

ISN 

0190 


SUSTINUMDI = PSTGSI!, J,l) 

ISN 

0191 


MATINUMO) = -300 - I £ 2000 

ISN 

0192 


MAPSI I , J 1 = NUMO 

ISM 

0193 


NX = YOPSI I , J) £ .9 

I SN 

0194 


NX = NX £ MSTI I ,J) - ILY 

ISN 

0195 


NYOINUMOI = MAXO I NX , 1 I 

ISN 

0196 


LYDINUMO) = MYRS 

ISN 

0197 


YD I NUMO 1 = YOPSI I,J) 

ISN 

0198 


NOUM = NUMD £ NMIS £ NSPR 

ISN 

0199 


ISINDUMI = MSTI I,JI £ 1900 

ISN 

0200 

9031 

CONTINUE 

ISN 

0201 


DO 9032 J = 1,5 

ISN 

0202 


MAPI! I,J> = 0 

ISN 

0203 


IF I PINTSI I , J, 1 ) .LT. .01) GO TO 9032 

ISN 

0205 


NUMO = NUMD £ 1 

ISN 

0206 


DS I NUMO I = 0.0 


GO TO 307 


GO TO 9029 


) GO TO 9031 


D-29 



ISN 

0207 


SUST(NUMO) = PINTS! 1 ? J * 1 ) 

ISM 

0208 


MAT (NUMD) « -* 00 - I £ 2000 

ISN 

0209 


MAPI! I , J) = NUMD 

ISN 

0210 


JF = NP INTL ( I * J ) 

ISN 

0211 


KF = NP1NTUU.J) 

ISN 

0212 


NYD(NUMD) = MAXOCNYFI JF),NYFIKFM 

ISN 

0213 


LYD(NUMD) * MYRS 

I SN 

021* 


YO(NUMD) = 0.0 

ISN 

0215 


NOUM = NUMD C NMIS £ NSPR 

ISN 

0216 


IS(NDUM) = ILY £ 1900 

I SN 

0217 

9032 

CONTINUE 

ISN 

0218 

9011 

r 

CONTINUE 

ISN 

0219 

t 

9010 

r 

CALL MATCH! 

I SN 

0220 

r 

IF( KFLAG.EO. 1) RETURN 

ISN 

0222 

2 

CALL PRINTI 

ISN 

0223 

C 

RETURN 

ISN 

022* 


ENO 


END OF 

COMPILATION ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,XREF,HAP,NCAL J 

VARIABLE OPTIONS USEO - SIZE=( 126976*245761 DEFAULT OPTIONIS) USED 

I EM OOOO NAME M0X02DNIRI 

IEW0461 MATCHI 
IEW0461 PRINTI 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME 

UECSNI 

00 

11FE 


SAVDMP 

1200 

1*BC 


SAVE 1 

26C0 

FC* 


SAV3 

3688 

980 


SAV* 

*008 

3188 


SAVALL 

7190 

3A1C 


SCRACH 

ABBO 

6 A60 



LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

128 

SAVDMP 

SAVDMP 

130 

SAV3 

SAV3 

138 

SAV* 

SAV4 

140 

SAVALL 

SAVALL 

148 

SCRACH 

SCRACH 

150 

PRINTI 

tUNRE SOLVED 

ENTRY ADDRESS 

00 


TOTAL LENGTH 

11610 



LOCATION 


NAME LOCATION NAME LOCATION NAME 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


12C 

134 

13C 

144 

14C 


SAVE1 SAVE1 

SAV4 SAV4 

SAV4 SAV4 

SAVALL SAVALL 

MATCHI 3UNRE SOLVED 


**»»MriX02DN NOW REPLACED IN OATA SET 
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(17) 


OS/ 360 FORTRAN H 


DATE 71.312/18.09.59 


COMPILER OPTIONS - NAME = MAIN, 0PT=02 , L INECNT=66 , SOURCE, BCD, NOLIST, NODECK, LOAD, NOMAP, NOEOIT, ID, 
I5N 0002 SUBROUTINE LBONOI 

C THIS SUBROUTINE CALCULATES THE RECURRING AND NON-RECURRING LOWER 
C BOUND WITH A PENALTY FUNCTION INCLUDED IF W NE 1.E30 


ISN 0003 
ISN 0005 


ISN 0005 
I SN 0006 

ISN 0007 
ISN 0008 


REAL NPERPO 

INTEGER *2 NSAVE,NAOD,NX,MINOPT,M0RE,NTGYTR, 

1 VEH.NMULT ,NONREC,NYO, IS, MAT ,L YR , L E T T , LYD, MI N , KOUT ,LTR»N1NTYR 

COMMON/ S A V3/GR0, GUESS ,LP,NSOL ,MSOL ,NP,M0S,NMI S.NSPR.NPERPDI 30) , 

1 PAD( 30) ,LTR(50) ,PLR( 50) ,ROIST( 56,5) ,ALPI( 5,60) 

COMMON/SAVA LL /LCK , SLO ,NM , NEXO.NV , NUMD »M YRS » LZ0PT(R)tNYDI66) *MAT ( 66 
II ,SUST(66) ,DS(66) ,LY0(66),Y0(66) , IS! 1 0 2 1 , L YR I 252 ) ,L E T T I 250 ) , 

2 MINI 250 1 .YRLMI250) , VEHI 6 ,60 ) .NONRECI 120,20) , NMULT I 60, 50) 
COMMON/TEMP/VNM I 2,2501 , I FLAG, XI .NEXT , LOUT , SAVSI 60 ) , KOUT 160), 

1 N INTYRI 60,20) ,NTGYTR(60,20*2) , RECUR 1 60 , 20 , 2 ) 

COMMON/SCRACH/E XTR A, NADD.NX.MOREI 10) , 2KP, WKP .NXKP.LZKPI 5 ) ,DUM£ ( 11 ) 
*, A2.L7 (66) ,W(500) .W2I500) , 

1 TDSI 500) .WRI699) ,Z( 500) ,COST( 2,250) .MINOPTI 266,9) ,NOOE (5,500), 

2 NR0S.SIGS0I9) ,ETC(9'I , 

6 NCOST,L8,KX,KZ,NSAVE(10),KEEPI60),M2I60),DUM 


ISN 

0009 

IFILB.EO. 50 1 GO TO 56 
C #«*FIND NEW RECURRING LOWER 

ISN 

0011 

69 W ( KX ) =o. 

I SN 

00 1 2 

W2IKX) = 0.0 

ISN 

00 13 

Dll 50 J= 1 , NM 

1 SN 

00 1 '* 

1F( YRLM( J) .LT..001 ) GO TO 

1 Ml 

00 16 

CALL UNPACK (MZ.VNMI 1,J),NV , 

1 SN 

00 1 7 

COST I 1 , J ) = 1.0E30 

ISN 

00 1 h 

COST ( 2 , J 1 = 1.0E30 

I SN 

00 1 9 

Kll = LYR(J) 

ISN 

0020 

JX = LETTIJI 

1 SN 

002 1 

ITR = LTR(JX) 

I SN 

0022 

DO 68 11 = 1 , NV 

ISN 

0023 

IFIMZI 11I.EQ.0) GO TO 68 

ISN 

0025 

1 = 11 

ISN 

0026 

I F ( 1TR.E0.2) I ■ 11 G NV 

ISN 

0028 

DO 67 Ms 1 , 20 

ISN 

0029 

1FIN0NRECI I ,MI .EO.O) GO TO < 

ISN 

0031 

NO = NONRECI I,M) 

ISN 

0032 

IF(K1*LZ(N0) .LT. KO ) GO 

ISN 

00 36 

67 CONTINUE 

ISN 

00 35 

675 X = NMULT ( 11, JX) 

ISN 

0036 

CX = YRLM( J)*RECUR( U.KO.ITR) 

ISN 

00 37 

IF(CX.GE.C0ST(2,J)1 GO TO 

I SN 

0039 

IFICX.LT. COST(l.J)) GOTO 

ISN 

0061 

COST ( 2 , J 1 = CX 

ISN 

0062 

GO TO 68 

ISN 

0063 

63. COST! 2, J) = COST ( 1, J 1 

I SN 

0066 

COST! 1,J) = CX 

ISN 

0065 

MIN(J) = 11 

I SN 

006 6 

68 CONTINUE 

ISN 

0067 

W(KX)=W(KX) GCOST ( 1, J I 

I SN 

0068 

W2IKX) = W2IKXI i COST! 2 , J 1 

ISN 

00 69 

50 CONTINUE 

ISN 

0050 

IF( KX.EO.NX) GO TO 510 

ISN 

00 52 

KZ = K 1 *LZ ( NCOST I 

I SN 

005 3 

IFIWIKXI.LT. 1.0E20) GOTO 

ISN 

00 55 

T GO =0.0 


ISN 0056 GO TO 38 

ISN 0057 508 IF(KZ.EO.O) GO TO 510 

ISN 0059 KY = NSAVE(LB) 

ISN 0060 512 IFIW(KX).GT.WIKY)-. 0001. AN0.W2IKX) .GT. W2( KY)-. 0001 I GO TO 38 

ISN 0062 IF(WIKX) .GT.W(KY) — .0001 . AND,W2(KX) .GT . 1 . 0E2 5. AND. W2 I KY ) -W2 ( KX ) .LT. 

1 1.0E25) GO TO 38 


ISN 0066 
ISN 0065 
I SN 0066 
ISN 0068 
ISN 0069 
ISN 0070 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0075 
ISN 0076 
ISN 00 77 
ISN 0079 
ISN 0081 
ISN 0082 
ISN 0083 
ISN 0086 


CALCULATE LOWER SOUND USING PENALTY FUNCTION BASED ON VEHICLES 
510 00 350 NIC * l.NUMO 
KEEP! NIC ) = 1 

IF( LZ(NIC) .LT.15I KEEPI NIC) = 0 
350 CUNT INUE 

355 TGn = 0.0 
I V = 0 

TG = 0.0 

356 00 351 IX = 1 ,NV 

I F ( IX.EO.IV) GO TO 351 
VGO = 0.0 
330 00 90 J = 1 , NM 

IFIYRLMI J).LT..001) GO TO 90 
IFIM1NI Jl.EO.IX) GO TO 91 

90 CONT INUE 
GO TO 351 

91 PF = 0.0 — 

KTV = 0 
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ISN 

0005 


11 = IX 

ISN 

0086 


JX = LETT I J 1 

i sn 

000 7 


IFILTRI JX) .EQ.2I 11 = IX £ NV 

ISN 

0089 


no 341 M = 1,20 

I SN 

0090 


IFINONRFCI ll.Ml.EO.O) GO TO 3415 

ISN 

0092 


NO = NflNREC I I 1 ,M! 

I SN 

0093 


IFIKEEPINOI .EQ.OI GO TO 341 

ISN 

0095 


VGO = VGO COSINOI £ FLOAT! XII *SUSTt NO) 

I SN 

0096 


KT V = 1 

1 SN 

0097 

341 

CONTINUE 

I SN 

0098 

3415 

1FIKTV.E0.0I GO TO 351 

ISN 

01 00 


00 331 J 0 1 , NM 

I SN 

0101 


IFlYRLMIJl.LT. 0.001. OR. MINI J) .NE.IXI GO TO 331 

ISN 

0103 


PF = PF £ COST ! 2 , J ) - COST! 1, J ) 

I SN 

0109 

331 

CONTINUE 

ISN 

0105 


VGO = AM INI 1 VGO, PF ) 

I SN 

0106 


1FIVG0.LT. TGI GO TO 351 

ISN 

0108 . 


IV = IX 

I SN 

0109 


TG = VGO 

ISN 

01 10 . 


12=11 

ISN 

0111 

351 

CONTINUE 

ISN 

0112 


TGO = TG £ TGO 

I SN 

0 113 


IF! TG.LT. GUESS*. 01) GO TO 38 

ISN 

0115 


TG =0.0 

I SN 

0116 


00 352 M = 1,20 

ISN 

0117 


IFINONRFCI 12, Ml.EO.O) GO TO 354 

ISN 

0119 


NO = NONRECI 12, M) 

ISN 

0120 


KEEP I NO 1 = 0 

ISN 

0121 

352 

CONTINUE 

ISN 

0 122 


GO TO 354 

ISN 

0123 

3B 

1FIK2.E0.0) TOSIKX) = TOSINX) 

ISN 

0125 


1FIK2.GT.0.AN0.KX.NE.NXI TOS IKX) = TOSINX) 

1 £ OSINCOST) £ FLOAT! LB*KI -NYDI NCOST )£] 

ISN 

0127 

54 

IF IKX.EO.NX) TOSINX) = TOSINX) £ 

1 OSINCOST) £ FLOATILYDINCOSTI-NYDINCOSTIC 

ISN 

0129 

r 

OMIN = TGO £ TOSIKX) 

ISN 

0130 

V 

507 

ZIKX) = DMIN £ HIKX) 

ISN 

0131 


IFILP.GT.O) WRITE 1 6,2041 KX, NX, NCOST, KZ, Ml KX) , OMIN 

ISN 

01 33 


RETURN 

ISN 

0139 

209 

FORMAT (1H ,41 13, 5X1.3IF9. 2,5X1 ) 

ISN 

0135 


END 


****** END of compilation ****** 
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P88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L 1ST ,XREF ,MAP ,NCAL 

VARIABLE OPTIONS USED - SIZE=< 126976,29576) DEFAULT OPTION(S) USED 


IEWOOOO NAME M0X02LD I R ) 

IEW0961 IBCOM= 

IEW0961 UNPACK 










CROSS REFERENCE TABLE 



CONTROL 

SECTION 


ENTRY 





NAME 

ORIGIN 

length 

NAME 

LOCATION 

NAME LOCATION 

NAME 

LOCATION NAME 

LbUNUI 

SAV3 

SAVALL 

TfcMP 

SCRACH 

00 

A50 

1300 

40F0 

8F00 

A50 
980 
3A1C 
41 10 
6A60 






LUCAT I ON 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

168 

170 

178 

180 

188 

190 

94 

ENTRY ADDRESS 

SAV3 

SAVALL 

SCRACH 

SCRACH 

SCRACH 

UNPACK 

SAVALL 

00 

SAV3 

SAVALL 

SCRACH 

SCRACH 

SCRACH 

SUNRESOLVED 

SAVALL 


16C 

179 

17C 

189 

18C 

8C 

SAVALL 

TEMP 

SCRACH 

SCRACH 

IBCOM = 

SCRACH 

SAVALL 
TEMP 
SCRACH 
SCRACH 
JUNRE SOLVED 
SCRACH 


TOTAL LENGTH F960 

#»**M0X02LD NOW REPLACED IN DATA SET 


(17) OS/360 FORTRAN H 


DATE 71.312/17.03.99 


ISN 0002 
ISN 0003 
ISN 0009 

ISN 0005 
ISN 0006 


ISN 0007 

ISN 0008 
I 5N 00 10 
ISN 0011 
ISN 0012 
ISN 0013 
ISN 0019 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0029 


COMPILER OPTIONS - NAME= HAIN,0PT=02,LINECNT=99, SOURCE, BCD, nolist, nodeck, load, nomap, noedit, id, 
SUBROUTINE L1STC 

DOUBLE PRECISION NAME,NAMEN,NAMEK 

INTEGER*2 KODESP,KODEM,NSYR,NSFX,NRFX,NYRSST,NSTRFX,NYRSFX,NPROG, 

1 kprog,kode,ltr,ydpl 

REAL LEVEL, NPERPO 

C0MM0N/SAV2/EXT,ACCL,KNSTG,KNFAM,KNCI ,KNP,KNMIS,JFLAG,TREF,NCSTR, 

1 PMAX.PMIN, ISTRT, I FIN, MAX I TR ,M I TR , KOOESP ( 6 ) ,T I TLE I 10) , LEVEL ( 20 > , 

2 CNTRVLI 201 ,FIXEO( 20) .KODEMI 50) ,NSYR I 50 ) , NSFXI 50 ) .NAME ( 56 ) , 

3 YDPU56) ,NRFX(50) ,NYRSST(B9> ,NSTRFX(89) ,NYRSFX( 89 ) , SUS I 89 ) ,C ( 89 ) 

9, RI89), S(89),CS(90) ,NPROG( 90 ) , KPROG ( 90 ) , KU0EI90) 

COMMON/ SAV3 /GRO, GlJE SS, LP, NSOL, MSOL, NP, MOS, NMI S, NSPR, NPERPDI 30 ) , 

1 PAD! 30) , LTRI 50) ,PLR( 50) ,RDI ST( 56,9) ,ALPI(9,60> 

IF(NCSTR.EQ.O) RETURN 
WRITE (6,1) NCSTR 

1 FORMAT ( 1H1 ,25X, 12,' C0NSTRAINTS'/6X, 'KODE' ) 

DO 200 I = 1, NCSTR 
L = KODE ( I ) 

IFIL.LT .l.DR.L.GT. 11 ) 

J = NPROGI I ) 

K = KPROG ( I ) 

IFU.LE.NMIS G NSPR) 

NAMEK = NAME I K ) 
l - CS ( I ) 

GO TO (10,20,30,90,50,60,70,80,90,100,110), L 

10 WR!TE(6,11) L,J,NAMEN,K, NAMEK, Z 

11 F0RMATI6X, 13, 3X, 'START ',I3,1X,A6,' AFTER END ',I3,1X,A6,' G',F3.0 
*) 


GO TO 200 


NAMEN * NAME ( J ) 


ISN 0025 
ISN 0026 
ISN 0027 

ISN 0028 
ISN 0029 
ISN 0030 
ISN 0031 
ISN 00 32 
ISN 0033 
ISN 0039 
ISN 0035 
ISN 0036 
ISN 0037 
ISN 0038 


GO TO 200 

20 WRITE(6,21I L. J, NAMEN, Z,K, NAMEK 

21 FORMAT ( 6X , 1 3 ,3X , ' END ',I3,1X,A6,' G',F3.0,' BEFORE START ',13, IX, 
* A6 i 

GO TO 200 

30 WRITE! 6,31 ) L»J. NAMEN, Z 

31 FORMAT (6X, 13, 3X, 'START ',I3,1X,A6,' IN',F6.0> 

GO TO 200 

90 WRITE (6,91) L,J, NAMEN, Z 

91 FORMAT (6X, 13, 3X, 'END DEVL ',I3,1X,A6,' IN' ,F6.0) 

GO TO 200 

50 WRITE (6,51) L.J, NAMEN, Z 

51 FORMAT (6X,I3,3X,I3, 1X,A6,F3.0,’ YEARS DEVELOPMENT') 

GO TO 200 

60 IF I Z.LE.O. ) GO TO 69 



I SN 0040 
ISN 0041 

ISN 0042 
ISN 004B 
ISN 0044 
ISN 0045 

ISN 0046 
ISN 0047 
ISN 0048 
ISN 0049 
ISN 0060 
ISN 0052 
ISN 0063 
I SN 0065 
ISN 0056 
ISN 0057 
ISN 0058 
ISN 0059 
ISN 0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0064 

ISN 0065 
ISN 0066 
ISN 0067 


WRITE (6,61) L » J « NAM EN « Z , K , NAMEK 

61 FORMAT (6X, 13, 3X, 'TARGET DATE ',I3,1X,A6,' NO LATER THAN',F4.0, 

* • YEARS BEFORE ',I3,1X,A6> 

GO TO 200 

64 Z - ABS <Z> 

WRITE (6,651 L,J. NAMEN, Z,K, NAMEK 

65 FORMAT ( 6X, 13 , 3X, • TARGET DATE >,I3,1X,A6,' NO LATER THAN',F4.0, 

* • YEARS AFTER *,I3,1X,A6) 

GO TO 200 

70 WRITE (6,71) L,J,NAMEN,Z 

71 FORMAT ( 6X, 13, 3X, 'TARGET OATE ',I3,1X,A6,' NO LATER THAN* ,F6.0) 

GO TO 200 

80 IF(J.LE.NM!S G NSPR) WRITE (6,81) L , J ,NAMEN 

81 FORMAT I6X,I3,3X,I3,1X,A6,' FIXED') 

IFIJ.GT.NMIS l NSPR) WR I TE ( 6, 62 ) L,J 

82 FORMAT (6X, 13, 3X , 'PROGRAM DEV ', 13,' FIXED') 

GO TO 200 

90 WRITE (6,91) L , J , NAMEN , Z 

91 FORMAT (6X, 13, 3X, 'START ',I3,1X,A6,' NO EARLIER THAN',F6.0) 

GO TO 200 

100 WRITE (6,101) L.J, NAMEN, Z 

101 FORMAT I6X, 13, 3X, 'TARGET OATE ',13,1X,A6,« NO EARLIER THAN >,F6.0) 
GO TO 200 

110 WRITE! 6,1111 L,J,K, NAMEK 

111 FORMAT (6X,I3,3X, 'PROGRAM OEV ',13, • COMPLETED BY FIRST LAUNCH 
1 OF PROGRAM ',I3,1X,A6> 

200 CONTINUE 
RETURN 
END 


****** ENO OF COMPILATION ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LI ST, XREF,MAP,NC AL 

VARIABLE OPTIONS USED - SIZE"! 126976,24576) DEFAULT OPTIONIS) USED 

I EW 0000 NAME MOX02LCIR) 


IEW0461 

IBCOM= 



CROSS REFERENCE TABLE 




CONTROL 

SECTION* 


ENTRY 





NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION NAME LOCATION 

NAME 

LOCATION 

NAME 

USTC 

00 

704 






SAV2 

7B8 

FEO 






SAV3 

1798 

980 







LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

370 

378 

ENTRY ADDRESS 
TOTAL LENGTH 

SAV2 

IBCOM= 

00 

2118 

SAV2 

LUNRESOLVED 

7 

374 

SAV3 

SAV3 


**«*M0X02LC NOW REPLACEO IN DATA SET 
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I 



FORTRAN IV G LEVEL 1, MOO 4 


MASTER 


DATE 


71312 


17/27/34 


0001 

0002 

0003 

0004 

0005 


0006 

0007 


0008 


0009 


0010 


00 1 1 
0012 


0013 


FORTRAN 


0014 


0015 

0016 


0017 

0018 

0019 

0020 
00 21 
0022 
00 23 

0024 

0025 

0026 

0027 

0028 
00 29 
0030 
00 31 
0032 
00 33 
0034 
00 35 
0036 
00 37 
0038 
00 39 

0040 

0041 

0042 

0043 

0044 


C OPTIMAL RESOURCE ALLOCATION MODEL 

C COST UNCERTAINTIES ARE DISPLAYED QUANT I TAT I VEL V 

C 

C A PROGRAM EITHER EOUALS A MISSION WITH LAUNCH S^HEDULF OR A 
C DEVELOPMENT OR SUSTAINING PROGRAM OR A MJSC. PROGRAM 
C A MISSION MUST HAVE AT LEAST ONE AND NO MORE THAN 10 LAUNCH YEARS 
C 

DOUBLE PRECISION NAME 
LOGICAL SKIP, EXT, ACCL 
REAL NPERPD 
INTEGER PROG 

INTEGER42 YDPL,NSYR,NSFX,NRFX,NYRSST,NSTRFX» NPROG , KPROG, KODE , 

1 nyrsfx,kuoem,kouesp,veh,nmult,nonrec,nyd, is,mat,lyr,lett,lyd, 

2 MIN,FINISH,NSTG,NEML,NFMU,KOOS,MAS,LABS,LABF,lABI,LTR,NU,NBY, 

3 MODE , NOB, LS A, NY S , KODEF , L ST , MS T, I ST, JST , KST , NVS >MRV ,NRP, 

4 NYP.KOOEP, 1 VEHA.NTRI P , NPL S, NRR , MR , NPSTG, NPAD , NPF AM ,NF S , NP I NTL , 

5 NPINTU, MAPS, MAPE, MAPI ,KODEV, MAE, MAIC, 

6 KVEH! , LABEL, LVARY.LVD, I VEH, L VS , L VSF , NOP ,NSSF , NSR F , NSXF , NDSF 
COHMUN/SAVER/ RFIXDI 12,84) 

COMMON/ SAVDMP/ NFAM , KF LAG , FAMI 30),K0DEFI 30) , FMNR I 30 1 ,FMSUS I 30 1 , 
1JSTI 30) ,YDE( 30) , LSAI 40) , SNR I 40) .NYSI40) ,DINT( 40) , SINT 1 40) ,KST ( 40 ) , 

2 Yfl I ( 40) , YOS ( 40 ) , !ST( 40) .EMSLSI 30,2) ,SUSLS140,2) , S INTLSI 40,2 ) , 

3 LSTI 30,51 ,YOPFt 30,5 l,MST( 30, 10) , YOPSI 30, 10) 

COMMON / SA V SAR /COR , PI1J1 3) , SR J ( 3,3 ) ,NU! 401 ,NRY(40) , NOB ( 40 ) »R! NT ( 40 ) , 

1 PLC I NT (40) ,XLT(40> , PLCTI40) ,UPP(40) , TAT I 40) , T AMT t 50 1 , SR I 40 , 3 1 , 

2 KUNE 140,3) , PLC I 40 , 3 1 

COMMON/ SAVE 1 / FINISH, NSTG,NC I,1LY,LA0F( 30) , LA BSI 40) , L AB I ( 40 ) , 

1 HEMI.I40) ,NEMUI40),KflOS(40) .STSI41) ,STG( 40) , VL R I 50) , WPR ( 50) , 

2 R PI Ml 50 1 , MAS I 40, 3 ) , RXU(12,50I 

COMMON/ SAV2/E XT, ACCL ,KNS TG , KNF AM , KNC I , KNP , KNMI S , JFL AG, TREF , NCST R , 

1 PMAX.PMIN, 1STRT, IFIN,MAXITR,MITR,K0I)ESP(6( ,T I TL E I 10 I , L E VEL I 20 ) , 

2 CNTRVLI20I .FIXED! 20) .KOOEMI 50) ,NSYRI 501 ,NSEXI 50) .NAME I 56) , 

3 YOPL I 56 ) ,NREX( 50) ,NYRSSTI 84) , NSTREX ( 84) ,NYRSFX( 84 ) , SUSI 84 ) ,C I 84) 
4, R 1 84 ) , SI 84) ,CS( 90) .NPR0GI90) ,KPR0G(90) , KODEI90) 

C0MMUN/SAV3/GR0.GUESS ,LP ,NSOL ,MSOL ,NP,MUS,NMIS,NSPR,NPERPD(30), 

1 PAD! 30) ,LTR( 50) , PLR ( 50) ,RDI ST I 56,4 ) , A L P I I 4,60) 

C0MM0N/SAV4/ MAF 130,3), MAIC(40,3), 

* NPADI2,60),NPFAM(30,5>,NPINTL 130, 5), NPINTU! 30,5), 

1 NFS 1 40, 4 I, NPSTG! 30, 10 1 .MAPS! 30, 10) ,MAPF I 30, 10) , MAP I ! 30, 10 ) , 

2 PFAM0(30,5,2),PFAMS(30,5,2),PINTS(30,5,2),PSTGDI30,10,2), 

3 PST GS (30,10,2) 

COMMUN/SVACAV/ KNV.NOPT.KOOEPI 301 ,RPLOI 40) , IVEHA! 50 ) ,NTR IP 1 50 ) , 

1 NPLS! 50) , NRR ( 50 ) , MR ( 50 ) ,NVSI 60 ) ,MRV( 60) ,NRP 1601,61! 60 ) , B2 ( 60 ) , 


IV G LEVEL 1, MOD 4 MASTER DATE » 71312 17/27/34 

2 831 60), 84(60 1 .K0DEV160) ,NYP(2,60) ,VM! 2,60) 

COMMON/SAVALL /LCK,SLO,NM,NEXD,NV ,NUMD,MYRS , LZOPT I 8 ) , NYD! 46) , MAT (46 

1),SUST(46),0S(46),LYD(46),Y0(46),IS( 102I.LYRI 252) , LETT! 250) , 

2 MINI 250) ,YRLM(250) , VEH (4,60) ,NONREC( 12 0, 20 ) , NMULT ( 60 , 50 ) 
COMMUN/VARNCE/KSTAT.VAR 1(40) ,VARF( 50) , VARM( 56 ) , FMVAR ( 2 , 30 ) , 

1 FI VAR I 3, 40) .PLVARI 3,561 ,SVAR(5,40) 

COMMON/SCRACH/M,N,NCS, PROG, 1000, IERR,SKIP,MYFLAG, JS ,NSCALE ( 5 ) , 

1 NSL( 101 .TOTAL (20) ,W( 20) , D( 20 ) , XOUT I 20) ,V0UT(20) ,RRR| 20) .YEAR 1 20) 

2, Y< 20) ,KVEHI ( 50) , LA BEL( 50) ,LVARY( 70) ,LVD( 70 ) , IVEHI 70) ,LVS(70), 

3 LVSFI 80) ,VNAM(80) ,NOP( 86) ,RF(86),CF( 86) , SF ( 86 ) , FLAGR ( 86 ) , 

4 FLAGS! 86) ,NSSF(86l ,NSRF( 86) ,NSXF( 86 ) , NDSF I 86 ) , SUSTF ( 86) ,NLVP(B6) 

5, NSTRRCI86) ,NYRSRC(86) ,LNUFI 86) .NSTRSTI 86) ,LN0ATE( 86) .NPR0I90) , 

6 KPR0(90),CSX(90),LZ(46),RC0STI 60), KVEHI 60) , IMAGE ( 830 ) , 

7 XSCHI 10,70) ,PLSCH( 10,70) ,XLVSUMI20,50) .RECUR t 20, 50) , KOOX ( 90 1 , 

8 LABNI46), DM1265) 

DATA BLANK /1H / 

STS ( 4 1 ) = BLANK 
LYRI252) = 0 

9 FINISH = 1 
KSTAT = 0 
JELAG = 0 
DO 3 I ■ 1, 40 
DO 2 J = 1,3 
F I VAR ( J, I ) = 0.0 

2 SVAR(J,I) = 0.0 
VAR I ( I ) = 0.0 
SVAR (4,11 = 0.0 

3 SVAR (5,1) = 0.0 
DO 4 I = 1,30 
FMVAR ( 1,1) = 0.0 

4 FMVAR ( 2 , I ) = 0.0 
00 5 I = 1,56 
VARMI | ) = 0.0 

DO 5 J = 1,3 

5 PLVARI J, I ) '« 0.0 
DO 6 I * 1,50 

6 VARE ( I 1 = 0.0 
10 CALL ASSIGN 

I F ( MYRS.EO.O) GO TO 99 
IF(MYRS.EQ.IOO) GO TO 9 
IFIFINISH.GT.il GO TO 12 
NNM =■ NMIS ♦ 1 ♦ NSPR 
TREF = 1900.0 + TREF 



FORTRAN IV G LEVEL l, MOO A 


HASTES 


DATE = 71312 


004 5 


DO B I « 

1 

.84 

0046 

8 

R 1 I ) = 0. 

0 


0047 

12 

DO 13 I » 


1,70 

0048 


LVARY! 1 ) 

a 

0 

0049 


LVO(I) = 

0 


0050 


00 131 J 

M 

1,10 

0051 


PLSCMI J, 1 

) 

■ 0.0 

0052 

131 

XSCHI Jt I ) 


= 0.0 

00 53 

*13 

CONTINUE 



0054 


DO 132 I 

S 

1,86 

0055 

132 

NLVP(I) = 


0 

0056 


DO 133 I 

= 

1,50 

0057 

133 

LABEL! I ) 

3 

0 

0058 


DO 134 I 

3 

l.NMIS 

0059 

134 

NYRSST ( I ) 


= 0 

0060 


NUMD = NUMD 4 NEXO 

0061 


DO 16 I = 


1, NUMD 

0062 

14 

LABN(I) = 


0 


CALCULATE VARIABLES FOR SMOOTH FROM MISSION DATA 


0063 


M = 1 

0064 


DO 120 K = 1,NM 

0065 


IF(MINIK).EQ.O) GO TO 120 

0066 


I = LYR(K) 

0067 


J = LETT ( K ) 

0068 


IF ( J.EQ.LETTI K-l > 1 GO TO 105 

0069 


IFIFINISH.GT.il GO TO 104 

0070 


SI J) * IS! J) 

00 71 


RIJ) = YDPL(J) 

0072 

104 

LVARY ( J ) =■ M 

0073 


NSTRST1J) = INT! 2.0*R< JI/3.0 ♦ .999) 

0074 


IFIRI J ) . EO. 0 > NSTRST!J) = 1 

0075 


GO TO 108 

0076 

105 

LI = LVARY 1 J ) 

0077 


MO = M-l 

0078 


DO 106 L - LI, MO 

0079 


IFIMINIKI.NE.IVEHILI) GO TO 106 

0080 


Ml = L 

0081 


GO TO 110 

0082 

106 

CONTINUE 

0083 

108 

IVEHIH1 « MIN(K) 

0084 


LVSIM) • I - I S ( J) + 1900 ♦ ILV 

FORTRAN 

IV G LEVEL 

1, MOD 4 MASTER I 

0085 


NLVP1JI = NLVP(J) ♦ I 

0086 


M 1 * M 

0087 


M = M + 1 

0088 

no 

M3 = ISIJ1 

0089 


IFISUS1 J1.LE..001) GO TO 111 

0090 


NX = NYRSST ( J ) 

0091 


M4 = NSTRST(J) 

0092 


M5 = NSYR(J) 

0093 


NYRSST! J) = MAXO! NX, I - M4 - M3 ♦ 1900 

0094 

111 

M2 = LVSIM1I 

0095 

• 

K 1 = M IN ( K 1 

0096 


X - NMULTIK1, J) 

0097 


NOUM = I - M2 - M3 + 1900 + ILV ♦ 1 

009 b 


PLSCH! NDUM ,M1 ) » VRLM(K) 

0099 


XSCH! NOUM.Ml ) * YRLM! KI*X 

0100 


NX = LVD1M1I 

0101 


LVDIM1) = MAXO! NX , NDUM) 

0102 

120 

CONTINUE ' 

0103 


M « M - 1 

0104 


NCS = 0 

0105 


N = NMIS 

0106 


I F ! NSPR.EO.O ) GO TO 170 

0107 


DO 150 I = l.NSPR 

0108 


N = N + 1 

0109 


IF(FINISH.GT.l) GOTO 140 

0110 


SIN) = I SI N 1 

0111 


RINI = YDPLINI 

0112 

140 

NSTRST(N) = INT ( 2 .OAR! N) /3 . 0 ♦ .999) 

0113 


IFIR(N).EO.O) NSTRST (Nl = 1 

0114 

150 

CONT INUE 


DATE = 71312 


♦ ILV ♦ M5 + 1 I 


0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 


CONTINUE TO CALCULATE VARIABLES FOR SMOOTH USING DEV. AND 

170 IF(NUMO.EO.O) GO TO 260 

CALL UNPACK! LZ.LZOPTI 1),NUM0,5) 

00 210 I = l.NUMD 
IFtLZU I.EO.O) GO TO 210 
N = N + 1 

NOUM = N - NMIS - NSPR 
LABEL! ND1JM ) = I 
LABNI I > = N 
C IN) = DSIll 
NVRSFX(N) ■ 0 


17/27/34 


17/27/34 


SUST. COSTS 
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0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 
014 5 
0146 
014 7 
0148 


0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 


L = MAT! I I 

1F1L.GT. 10001 GO TO 206 
IF( L.LT.-100I NDUM = -L -100 
IF(L.LT.-iOO) J = LABI(NOUM) 

1F( L.LT.0.AND.L.GE.-100) NDUM o -L 
1FIL.LT.0.AN0.L.GE.-100) J = LABFl NDUM) 

IF1L.GT.0I J = LABS1L1 
1F1J.EQ.0) GO TO 206 
DO 205 K = 1, 12 
RFIXUIK.NI = RXD1K.JI 

205 Cl N 1 = C(N) - RXDIK.J) 

NYRSFX(N) = NSFX1J1 
NSTRFX1NI = NRFX1JI 

206 NDUM = I + NM IS + NSPR 
SIN) = IS1NDUMI 

R1N1 = YDl 1 1 
SUSIN) = SUST1II 

NSTRST1NI = INT(2.0*R(Nl/3.0 ♦ .9991 
lFIF.(N) .EO.OI NSTR ST IN 1 = 1 
NX = 1S1N0UM) + NSTRST (N) - 1 
NX = MAXO (0.1900 + ILY - NX> 

NYRSST(N) = L21II - NYO(I) + INTlYDIIlt - NSTRST 1 N 1 ♦ 2 ♦ NX 
IFISUSINI.LT. .00011 NYRSST1N1 = 0 

210 CONTINUE 
C 

C CALCULATE DEVELOPMENT CONSTRAINTS ON MISSION PROGRAMS 
DO 250 K = 1 . NM 
IF1MIN1K). EO.OI GO TO 250 
J = LETT1KI 

IFINLVPIJI.EO.l .AND ■ J. EO .LETT I K- 1 1 1 GO TO 250 
IV = MINI K1 
00 211 I = 1,10 
NUM = K - I 

1F1 J.NE.LETT1NDM1 I GO TO 215 
IF 1 IV.E0.MIN1NDMI 1 GO TO 250 

211 CONTINUE 

215 X = LYR1K1 - LYR1N0M+1I 
11= IV 

IF1LTRI J1.E0.21 II = IV ♦ NV 
DO 220 K 1 = 1,20 

IF1N0NREC1 II, Kll. EO.OI GO TO 250 
NO = NONREC 1 I 1 ,K1 1 
J1 * LA8N1N01 
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0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 


0188 

0189 

0190 

0191 


NC S = NCS ♦ 1 

NPR01NCSI ” J1 

CSX(NCS) * -1.0 -X 

IF1C1J11.lt. .0001) GO TO 216 

KPRII (NCS I = J 

KU0X1NCSI = 11 

GO TO 217 

216 I F I NCS .EO. 1 1 GO TO 219 
NCS = NCS - 1 
DU 218 I = 1 , NCS 
(F 1 J 1 . EO.NPROl 1 1 > GO TO 220 

218 CONTINUE 

NCS = NCS ♦ 1 

219 KPROI NCS I = 0 
KOOXINCS) =■ 8 

217 I FINCS.GE.90) GO TO 255 

220 CONTINUE 
250 CONTINUE 

GO TO 260 
255 W R I T E I 6 , 1002 1 

1002 FORMAT 1 52H0NUMBER OF DEVELOPMENT CONSTRAINTS HAS BEEN EXCEEDED) 
C 

260 CALL SMOOTH 


1FIM0S.EQ.2.OR.M0S.EQ.3) GO TO 9 
IFIF1NISH.E0.MITR ♦ 1. AND.JFLAG.EO.il GO TO 401 
IF1FINISH.E0.MITR + 1) GO TO 402 
IF1FINISH.EQ.MITRI JFLAG = 1 
C 

C CALCULATE VARIABLES FOR ASSIGN FROM SMOOTH VARIABLES 


0192 


MXRS = MYRS 



0193 


00 300 K = ItNM 



0199 


I = LYR(K) 



0195 


J = LETT ( K ) 



0196 


!F< J.EO.LETT(K-l) > 

GO 

TO 305 

0197 


ISIJ) = S( J I 



0198 


IX = ISIJ) ♦ LNOATE(J) 

- 1900 

0199 


I1M FF s ix - I 



0200 

305 

IF I lOIFF.EQ.O) GO 

TO 

300 

0201 


MYRS = MAXOIMYRS, IDIFF 

♦ II 

0202 


LYRIK) = I ♦ IDIFF 



0203 

300 

CONTINUE 




d -37 
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0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 
02 31 
02 32 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 


MVRS = MINO IMYRS ( 20) 

IFIN.EO.NMIS+NSPR) GO TO 10 
00 350 1 = NNM , N 
NOUM = I - NMIS - NS PR 
J = LABEL (NOUM) 

OS I J) = C( II 
L = MAT ( J ) 

. IF(L.GT.IOOO) GO TO 320 

1F( L.LT.-100) NOM = -L -100 
IF(L.LT.-IOO) J1 = LABI INCH) V' 

IF(L.LT.O.ANO.L.GE.-IOO) NOM« -L 
IF(L.LT.O.ANO.L.GE.-IOO) J1 * LABFINDM) 

IF(L.GT.O) J1 » LABS I L I 
IFIJl.EO.Ol GO TO 320 

00 310 K = 1,12 

310 USUI = OS ( J ) + RFlXOtK.It 
NRFX(Jl) = NSTRFX(I) 

320 SUSTUI = SOSII) 

YO ( J ) = R ( I ) 

NYO(J) = INT(Sd) ♦ Rill) - 1900 - 1LY 
IFINYOI JI.LE.O) NYOIJI = 1 
NOUM = J ♦ NMIS ♦ NSPR 
IS(NOUM) « Sill 
350 CONTINUE 

NUMD = NUMO - NEXO 
00 349 I ■= 1 , NUMO 

IFILYOIII .EO.MXRSI LYDII) »MYRS 
349 CONTINUE 
GO TO 10 

401 WRITE! 6,500) 

GO TO 9 

402 WR!TE(6,501l 
Gil TO 9 

500 FORMAT I 58H0MAX IMUM NUMBER OF ITERATIONS COMPLETED - END OF THIS C 
*ASE1 

501 FORMAT ( 65H00PT IMUM ASSIGNMENT WITHIN BUDGET CONSTRAINTS HAS BEEN 

1 OETERMINEDI 
99 STOP 

END 
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TOTAL MEMORY REQUIREMENTS 001984 BYTES 



DEFAULT OPT IGNIS) USED 


F83-LEVEL LINKAGE EOITOR OPTIONS SPECIFIED L I ST, NCAL , MAP 
VARIABLE OPTIONS USED - S I Z E = C 126976 , 2A576 > 

1 EH OOOO NAME M0X02MNIR) 

IEW0A61 ASSIGN 
1EW0A61 UNPACK 
IEH0A61 I BCGM= 

1EW0A61 SMOOTH 
IEW0A61 MAXO 
IEW0A61 MINO 


MODULE MAP 


CONTROL SECTION 


NAME 

ORIGIN 

LENGTH 

MASTER 

00 

1984 

SAVER 

1988 

FCO 

S A VDMP 

2948 

i 4RC 

SAVSAR 

3608 

A5C 

SAVE1 

4868 

6C4 

SAV2 

5830 

6F0 

SAV3 

6810 

980 

SA V* 

7190 

3188 

S VAC A V 

A3 1 8 

848 

SAVALL 

A E 60 

3A1C 

VAPNCE 

6880 

ADC 

SCPACH 

6360 

6A60 


ENTRY 

NAME 


LOCATION 


NAME LOCATION 


NAME 


ENTRY AOURESS 00 

TOTAL LENGTH 150C0 

****MUX02MN NOW REPLACED IN DATA SET 
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0001 


0002 


0003 


OOOA 


SUBROUTINE MATCHI 

C ***MATCH DECISION COSTS WITH EACH VEHICLE*** 

C 

INTEGER*2 LSA,NYS,KODEF,LST,MST, 1 ST, JST, KST, VEH,NMULT,NONREC tNYD, 

1 is,mat,lyr,lett,lyo,min,npstg,npad,npfam,nfs,npintl,npintu,maps, 

2 MAPF,MAPI,FINISH,NSTG,NFML,NFMU,KODSt MAS, LABStLABFt LABI ,MA 1C ,MAF 

c 

COMMON/ S A VDMP/ NFAM,KFLAG,FAM(30),K0DEF(3OI , FMNR ( 30 ) , FMSUS I 30 I , 
IJSTt 301, YOF (30) ,LSA( AO I , SNR I AO ) ,NYSI AO ) , DINT I AO ) ,SINT(AO) , KST I AO) , 

2 YOU AO) ,YDS< A0),IST(A0),FMSLS(30,2),SUSLS(A0,2),SINTLS(A0,2>, 

3 LSTI 30,5) ,Y0PF(30,5) ,MST I 30, 10 ) , YDPSI 30, 10) 

COMMON/ SAVE 1/ FINISH,NSTG,NCI,ILY,LABF( 30), LABS! AO) .LABI! AO), 

1 NFMLI AO) ,NFMU( AO) , KOD S I AO I , ST S I A 1 ) , STGI AO) , VLRI 50) ,WPR1 50) , 

2 RPLM(50),MAS(A0,3), RX0(12,50) 


0005 

0006 


0007 


COMMON/SAV3/GRO,GUESS,LP,NSOL,MSOL,NP,MOS,NMIS,NSPR,NPERPD(30) , 

1 PAOt 301 ,LTR 150) , PLRI 50) ,ROIST( 56, A) , ALPI IA,60) 

COMMON/SAVA/ MAE I 30 , 3 ) , MAIC(A0,3), 

• NPAOI 2,6 01 .NPFAMI 30,5) .NPINTLI 30,5) .NPINTUI 30,5) , 

1 NFS! AO, A) .NPSTGI30, 10) .MAPS I 30, 10) ,MAPF 1 30, 1 0 ) .MAPI I 30, 10 ) , 

2 PFAMOI30,5,2),PFAMS(30,5,2),PINTS(30,5,2),PSTGD(30,10,2), 

3 PSTGSI30, 10,21 

CUMMUN/SAVALL/LCK,SL0,NM,NEXD,NV,NUMD,MYRS,L20PT( 81 ,NYD( A6> .MATIA6 
1) .SUSTIA6I ,DSIA6) ,LYD(A6) ,Y0( A6) , I SI 102) , LYR< 252 ) , LETT I 250) , 

2 MIN(250(,YRLM(250), VEHI A,60) .NONRECI 120,20) .NMULTf 60, 50) 


0008 


I F I LP *G6 • 2 1 WRITE (6,251) 

0009 

4 

DO 66 I = 1»NV 

0010 


12 * I ♦ NV 

0011 


JX = 0 

0012 


KX = 0 

0013 


DO 64 J = 1,20 

0014 


NONRECI 1 2 , J 1 = 0 

0015 

64 

NONRECI I , J 1 = 0 

0016 

25 

DO 65 MS S 1,4 

0017 


K * VEHIMS,!) 

0018 


IF ( K . 60.0 1 GO TO 66 

0019 


IF I MA S I K , 1 ) . EO. 0) GO TO 

0020 


JX = JX ♦ l 

0021 


NONRECI I,JX) = MASIK, 1 ) 

0022 


KX = KX ♦ 1 

0023 


NONRECI 12 ,KX 1 * MASIK, 11 

0024 


IFILP.GE.21 WRI T6I 6, 250) 

0025 


IFILP.GE.2) WRITE 16,250) 


I, HAS I K , 1 ) 


LOCATION 
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00 26 


IF< JX.GT.20. OR. KX.GT.20) GO TQ 

93 

0027 

9050 

IF(NP.EO.O) GO TO 63 


0028 


IF IMASIK.2I.E0.0I GO TO 9051 


0029 


00 302 L = l.JX 


00 '30 


IF(MAS(K.2I . EO.NONRECI I . L ) 1 GO TO 9051 

0031 

302 

CONTINUE 


00 32 


JX = JX 1 


0033 


NONREC! I t JX ) = MAS(K,2) 


00 34 


1FILP.GE.2I WRITE<6,250) I, 

MASIK.2) 

003 b 


IF (JX.GT.20) GO TO 93 


00 36 

9051 

IF f MAS ( K 1 3 ) . EQ.O ) GO TO 9052 


00 37 


00 303 L = 1 » KX 


00 38 


IF<MAS<K,3). EO.NONRECI I2,L) ) 

GO TO 9052 

0039 

303 

CONTINUE 


0040 


KX s KX n 


004 1 


NUNRFCf 1 2 , KX ) = MAS1K,3) 


00 42 


IF f LP.GE .2 ) WR I TE ( 6 f 250 ) I2 ? 

MASIK.3) 

0043 


IF (KX.GT.20) GO TO 93 


0044 

9052 

IF INPADI l.M.EO.OI GO TO 9053 


004 5 


N1 = NP AO ( 1,1) 


0046 


on 9054 J t= 1,10 


0047 


IF (NPSTGINl.JI . NE . K 1 GO TO 9059 

004 8 


IF I MAPS (Nl«J).EQ.O) GO TO 9053 

0049 


00 304 L = lfJX 


0050 


IF(MAPS1N1,J| •EO.NONRECI I ,U I 

GO TO 9053 

0051 

30A 

CONTINUE 


00 52 


JX = JX ♦ 1 


0053 


NONRFCf 1 , JX 1 = MAPS ( N 1 , J ) 


0054 


IFILP.GE.2I WR ITE (6,250) I, 

MAPSINl.JI 

0055 


IF (JX.GT.20) GO TO 93 


00 56 


GO TO 9053 


005 7 

905A 

CfJNT INI IE 


0058 

9053 

IF ( NPADf 2*1 I.EQ.O) GO TO 63 


0059 


N1 = NPAOf 2* 1 ) 


0060 


DO 9055 J = 1,10 


0061 


IF (NPSTGINl.JI. NE.KI GO TO 9055 

0062 


IF IMAPSIN1.JI.E0. 01 GO TO 63 


0063 


DO 305 L = 1 . KX 


0064 


IFIMAPSIN1.J1 .EO.NONRECI 12, L) 1 

GO TO 63 

0065 

305 

CONTINUE 


0066 


KX = KX 4 1 


0067 


NONREC ( I 2 , KX I = MAPS ( N 1 , J 1 


0068 


IFILP.GE.2) WRITEI6.250) 12, 

MAPSINl.JI 
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0069 


IF (KX.GT.20) GO TO 93 


0070 


GO TO 63 


0071 

9055 

CONTINUE 



C 

*»» PICK UP SHARED COSTS *** 

0072 

63 

IF(NFAM.EO.O) GO TO 21 


0073 


00 885 KY = 1,4 


0074 


KZ=NFS( K,KY) 


0075 


IF(KZ.EO.O) GO TO 885 


00 76 


IF (MAFfKZt U.EQ.O) GO TO 9056 


0077 

• 

DO 306 L = 1»JX 


0078 


IFIMAFIKZtl) .EO.NONREC 1 1 ,L 1 1 GO TO A01 

0079 

306 

CONTINUE 


0080 


JX=JX*1 


0081 


NONREC! I.JXI = MAFIK2.1) 


0082 


IFILP.GE.2) WR ITE ( 6 ,2 50 1 I. 

MAFIKZ.l) 

0083 

401 

DO 307 L = 1 ■ KX 


0084 


I F( M AFIKZ.l). EO.NONREC I I2.L1) 

GO TO 9056 

0085 

307 

CONTINUE 


0086 


KX = KX + 1 


0087 


NONPEC ( I 2 , KX 1 = MAFIK2.1) 


0088 


IFILP.GE.2) WR ITE ( 6,250) 12, 

MAFIKZ.l) 

0089 


I F I JX.GT.20. OR. KX.GT.20) GO 

TO 93 

0090 

9056 

IF(NP.EO.O) GO TO 885 


009 1 


IF (MAF(KZ,2).EQ.O) GO TO 9057 


00 92 


DO 308 L « 1 , JX 


0093 


IFIMAFI KZ ,2) .EO.NONRECI I , L ) I 

GO TO 9057 

0094 

308 

CONT I NUF 


0095 


JX = JX + 1 


0096 


NONREC! I.JX) = MAFIK2.2) 


0097 


IFILP.GE.2) WRITEI6.250) I, 

MAFIKZ.2) 

0098 


IF! JX.GT.20) GO TO 93 


0099 

9057 

IF (MAFIKZ.3I.E0.01 GO TO 9058 


0100 


DO 309 L = 1 , KX 


0101 


IF(MAF(KZ,3).EO.NONREC( 12. L) ) 

GO TO 9058 

0102 

309 

CONTINUE 


0103 


KX = KX 4 1 


0104 


NONREC! 12 »KX I = MAFIKZ.3I 


0105 


IEILP.GE.2I WRITE! 6, 250) 12, 

HAFIKZ.3) 

0106 


IF 1 KX.GT.20) GO TO 93 


0107 

9058 

IF INPADI 1, I ) .EO.O) GO TO 9059 


0108 


N 1 = NPADI 1,1 ) 


0109 


DO 9060 J = 1,5 


0110 


IF (NPFAMINl.JI.NE.KZ) GO TO 9060 


16/5A/25 


D-ilO 
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Oill 


IF (MAPFIN1.J1.E0.0) GO TO 9059 

0112 


III) 310 L * l.JX 

0 113 


IFIMAPFINl.J) .EO.NONREC 1 1 , L ) 1 GO TO 9059 

0114 

310 

CUNT 1NIIF 

011b 


J* , JX t 1 

0116 


NONREC I I , JX 1 = MAPFI N 1, J 1 

0117 


1FILP.GE.2I WR ITE 1 6 ,250) I, MAPFINl.J) 

0118 


IF (JX.GT. 20) GO TO 93 

0119 


GO TO 9059 

0120 

9060 

CONT INUE 

0121 

9059 

IF I NPAOI 2,11 .EO.O) GO TO 885 

0122 


N1 = NPAOI 2,1) 

0123 


00 9061 J >= 1,5 

0124 


IF INPFAMIN1, Jl .NE.KZ 1 GO TO 9061 

0125 


IF (MAPFINl.J). EO.O) GO TO 885 

0126 


00 311 L = 1 , KX 

0127 


IFIMAPFIN1.JI .EO.NONREC! 12,0 ) GO TO 885 

0128 

311 

CONTINUE 

0129 


KX = KX + 1 

0130 


NONREC! 12 , KX 1 = MAPFINl.J) 

0131 


IFILP.GE.2) WR IT E 1 6 ,250 1 12, MAPFINl.J) 

0132 


IF (KX.GT.20) GO TO 93 

0133 


GO TO 885 

0134 

9061 

CONTINUE 

0135 

885 

CONT INUE 


C 

**<■ PICK UP INTEGRATION COSTS *♦* 

0 136 

21 

1FIMS.EQ.4I GO TO 65 

0137 


IF (VFHIMS+l , I ) .EO.O) GO TO 65 

0 138 

, 

K l =VEH( MS ♦ 1 . I ) 

0139 


IF (MCI .EQ. 01 GO TO 9062 

0140 


00 89 J = 1 ,NC 1 

0141 


00 1187 KY=1,4 

0142 


IFINFMLI JI.NE.NFSIK.KY)) GO TO 887 

0143 


1)0 886 KZ=1,4 

0144 


IFINFMIJI J).EO.NFS(Kl.KZ) ) GO TO 888 

0145 

886 

CONTINUE 

0146 

887 

CONTINUE 

0147 


GO TO 89 

0148 

888 

IF IMAICIJ.1I.E0.0I GO TO 9063 

0149 


00 312 L « l.JX 

0150 


IF(MAIC(J,1) .EO.NONREC! I ,L ) ) GO TO 402 

0151 

312 

CONTINUE 

0152 


JX * JX ♦ 1 
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(1153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 


N0NREC1 I,JX) = MAICI J,l> 

IFILP.GE.21 WR I TEI 6, 2501 I, HAICIJ.ll 
402 00 313 L = l.KX 

IFIMAICIJ, II. EO.NONREC! 12,0) GO TO 9063 

313 CONTINUE 

KX = KX + 1 

N0NRECI12 ,KX) = HAICIJ.ll 
IFILP.GE.21 WRITEI 6, 2501 12, MAICIJ.l) 

IFUX.GT.20.0R.KX.GT.20I GO TO 93 

9063 IF! NP.EO.OI GO TO 89 

IF IMAICI J.21.E0.0I GO TO 9064 
00 314 L = 1,JX 

IF(MA!CIJ,2I .EO.NONREC 1 1 ,L 1 1 GO TO 9064 

314 CONTINUE 

JX = JX + 1 

NQNREC ( I , JX I * MAICIJ.2) 

1FILP.GE.21 WR ITE I 6 ,2 501 1, MAICIJ.21 

IF I JX.GT .20) GO TO 93 

9064 IF (MAICI J.31.E0.0) GO TO 89 
00 315 L = l.KX 

IFIMAIC(J,3).EO.NONREC(I2,L)) GO TO 89 

315 CONTINUE 

KX = KX + 1 

NONREC I I 2 , KX 1 = MAICI J, 3) 

IFILP.GE.2I WRITEI 6,250! 12, HAIC(J,3! 

IF (KX.GT.201 GO TO 93 
89 CONT INIJE 

9062 IFINP.EO.OI GO TO 65 
00 9065 M = 1,2 

IF (NPAOIM.Il.EO.OI GO TO 9065 
N 1 = NPAOI M, I I 
00 9066 J = 1.4 
IF INFSIK.JI.EQ.O) GO TO 9065 
00 9067 KY = 1,5 

1FINPINTLIN1 ,KY) .EO.O) GO TO 9066 
IF INP INTLIN1, KY 1 . NE . NF SI K , J 1 1 GO TO 9067 
00 9068 KZ = 1,4 

IF INPINTUINl.KYI.EO.NFSIKl.KZI) GO TO 9069 

9068 CONTINUE 
GO TO 9067 

9069 IF IMAPIINI.KYI.EO.O) GO TO 9067 
IF (M.EQ.2) GO TO 9070 

00 316 L = l.JX 


D-4l 
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I F( MAP I ! N1 ,KY ) .EQ.NDNREC! I , L ) ) GO TO 9067 

CONTINUE 

JX = JX ♦ 1 

NONRECU.JX) * MAPI I N1«KY! 

1FILP.GE.2) WRITE I6«2 50) It HAPIINI.KYI 
IF (JX.GT.20I GO TO 93 
GO TO 9067 
00 317 L = l.KX 

IF!MAPI(N1,KY) .EQ.NDNREC! I 2 1 L ) I GO TO 9067 
CONT 1NUE 
KX = KX + 1 

N0NKECI12 t KX ) « MAPl(NltKY) 

1FILP.GE.2) WR ITE 16 1 250) 12, MAPIINI.KY) 

IF (KX.GT.20) GO TO 93 

CONTINUE 

CONTINUE 

CONT 1NUE 

CONTINUE 

CONT 1NUE 

RETURN 

WRITE! 6,220) 1 
KFLAG = 1 
RETURN 

FORMAT 145H0EXCEEDED 20 NON-RECURRING COSTS FOR VEHICLE, 14) 
FORMAT! 15, 16X.I4) 

FORMAT I 8H1VEH1CLE, 10X, 15HDECISI0N NUMBER) 

END 


TOTAL MEMORY REQUIREMENTS 001984 BYTES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L 1ST, NCAL ,MAP 

VARIABLE OPTIONS USED - SIZE«< 126976,24576) DEFAULT OPTIONIS) USED 

IEW0000 NAME M0X02MHIR) 

IEW0461 I BCOM=* 


MODULE MAP 


CONTROL SECTION ENTRY 

NAME ORIGIN iENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME 

MATCH I 00 1984 

SAVDMP 1988 14BC 

SAVE 1 2E48 FC4 

SAV3 3E10 9E4 

SAV4 47F 8 3188 

SAVALL 7980 3A1C 


ENTRY AODRESS 00 

TOTAL LENGTH B3A0 

****MOX02MH NOW REPLACED IN DATA SET 


0196 

0197 

316 

0198 

0199 

0200 
0201 
0202 


0203 

9070 

0209 

0205 

317 

0206 

0207 

0208 

0209 

0210 

9067 

0211 

9066 

0212 

9065 

0213 

65 

0219 

66 

0215 

0216 

93 

0217 

0218 

99 

0219 

220 

0220 

250 

0221 

251 

0222 
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17) 


OS/ 360 FORTRAN H 


Date 71.312/18.06.54 


ISN 0002 

1SN 000 3 
ISN 0004 


COMPILER OPTIONS - NAME- MAIN, 0PT=02, L INECNT-44, SOURCE .BCD, NOL I ST .NODECK .LOAD, NOMAP, NOEDI T, ID 
SUBROUTINE MATE I 

C DETERMINE IF VARIOUS STAGE COMBINATIONS MAKE A FEASIBLE VEHICLE 
REAL ISP, ISPA, LENT : 

INTEGER‘2 F INISH, NSTG.NFML.NFMU.KODS, MAS, LABS, LABF, LABI .VEH.NYD, 

1 NMULT .NONRfcC , IS, MAT ,LYR,L£TT,LYD,M!N,NVS,MRV,NRP,NYP,Kl3DEP» 

2 !VEHA,NTRIP,NPLS,NRR ,MR, KODEV 


ISN 0005 


ISN 0006 


ISN 0007 


ISN 0008 


ISN 0009 
ISN 0010 
ISN 00 11 
I SN 00 1 2 
ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 0020 
ISN 00 21 
ISN 0022 
ISN 0024 
ISN 0025 
ISN 0027 
ISN 0029 
ISN 0031 
ISM 0033 
ISN 0034 


COMMON/ S A VALL /LCK ,SLO,NM,NEXD, NV , NUMD, MYRS , L ZOPT IB), NYDI 46 ) , MAT (46 
IJ , SUST ( 46) ,DS(46I ,LY0(46) ,Y0(46) , IS( 102) ,LYRI 2 52 ) , LETT ( 2 50 ) , 

2 MINI 250 ) , YRLMI 250 ) .VEHI 4 , 60) ,NONREC< 120, 20 ), NMULT I 60,50) 

COMMON/ SAVE 1 / FINISH, NSTG, NCI ,ILY,LABF( 30), LABS! 40) .LAB 1 1 40), 

1 NFML ( 40 ) , NFMU ( 40 ) , KUOS I 40 ) , ST S 1 4 1 ) , ST G( 40 ) , VLR I 50 ) , HPR ( 50 ) , 

2 RPLM(50) , MAS (40,3), RX0(12,50) 

COMMON/ SVACAV/ KNV.NIIPT .KOOEPI 30 I , RPLOI 40 ) , I VEHA I 50 I .NT# I P I 50 ) , 

1 NPLSI50) , NR# I 50) , MR ( 50 ) ,NV S(60) .MRVI60I .NRP160) .Bit 60 ) , B2 I 60 ) , 

2 B3I60) , B4 ( 60) , KOOE VI 60) ,NYP( 2,60) ,VM(2,60) 

COMMON/ SCR ACH/ IP,1V,IG,NPAX(2) »NEH ( 4) ,NST(41> ,THRT(41 ) .0IAMI41 ) , 

1 TSL(41),LENTI41I,WTFUI41),HTINI41),1SP|41I,MZI50),L2150), 

2 HINT(3,60I»KX,NX,WGHT(40),HF(4) ,WT I 4 ) , I SPA I 41 , 

3 THUT ( 4 1 , PRT I 60) ,M, VDES.XPL , PR ,K1 , IERR, DUMI 6067) 

DATA PI ,N,VRE$, CL 1/3. 1416, 2, 25573., 28. 5/ 

NV1 = NV C 1 

no 34 I = NV1»60 1 

VEH(1,I)=0 
on 34 J= 1,3 
vehi jr,i , i ) =o 

34 WINTIJ.l )=0.0 
NX = 0 

I MAX=0 
JMAX=0 
KMAX=0 
LMAX=0 

DO 35 1=1, NSTG 
I F I N S T I I ) .E0.01 GO TO 36 

33 WGHTI I l=WTFU( 1 1 GW TIN! I ) 

IFINSTm.EO.lt IMAX= I 
1FINSTI I I.E0.2) JMAX = I 
IFINSTI I I.E0.3) KMAX=I 
IFINSTI I ).EQ.4) LMAX-I 

35 CONTINUE 

36 I E ( IMAX.EO.O) GO TO 600 


ISN 0036 
ISN 0038 
ISN 0040 
ISN 0042 
ISN 0043 
ISN 0044 
ISN 0045 
ISN 0046 
ISN 0047 
I SN 0048 
ISN 0049 
ISN 0050 
ISN 0051 

ISN 0052 
I SN 0054 
ISM 0056 
ISN 0058 
ISN 0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0064 
ISN 0065 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0070 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0074 
ISN 0075 
ISN 0076 

ISN 0077 

ISN 0078 
ISN 0080 
ISN 0082 
ISN 0083 


1FI JMAX. EQ. 01 JMAX-1 MAX 

IF( KMAX.EO.O) KHAX= JMAX 

IFILMAX.EO.O) LMAX-KMAX 

1M1=IMAXC1 

JM 1= JMAXt 1 

00 500 1=1, I MAX 

K 1 = I 

WF ( I )=WTFU( I I 
WTI 1 ) =W T I N I I ) 

1SPA( 1) =ISP( 1 ) 

THUTI 1 1 =THRT ( I ) 

wVnX = P14(D^IAM*|?*6DIAMI J) )*I SORTI I LENT. J) 1**261 IDIAMI I, -01 AMtJ))* 

1 IF 0 (*THRTU)!lt?i?2*IMGHTII)CHGHT1J)6WINXII GO TO 400 

,E I THRTI I ) ,GT .3.5*1 WGHT I I I6WGHTI JI6WINX) ) GO TO 400 
IF (1)1 AMI J) .GT. 1.2*01 AMI I ) I GO TO 400 
IF IOIAMI I ) .GT.3.5*0IAM(J) ) GO TO 400 
WF(2I=WTFU( J) 

WT ( 2 ) =WT IN ( J ) 

I SPA( 2) =1 SP( J) 

THUT I 2) -THRTI J) 

M = 0 
PR = 0. 

V0ES=0. 

CALL PERFI(CLI.N.VREF) 

IF ( IERR.NE.O) GO TO 60 
NX = NX C 1 
KX = NV C NX 
NJ= J 

VEHI 1 , KX ) = I 
VEHI2,KXI=J 
M INTI 1,KX)=WINX 
PRT I KX ) =W PL 


CALL MISMTI 

IFIKX.E0.100) GO TO 60 
IFIKX.GE.60) GO TO 600 

60 w?n?=PI*IKj >601 AMI K) .*( SORTI I LENT. K) )**2 S( I 01 AM< J >-DI AMIK > ) 
1 *0.5)**2)>*5.0*0.5 ; *■ 



ISN 0084 
ISN 00 86 
ISN 0088 
ISN 0090 
ISN 0092 
ISN 0094 
ISN 0096 
ISN 0097 
ISN 0098 
ISN 0099 
ISN 0100 
ISN 0101 
ISN 0102 
ISN 0103 
ISN 0104 
ISN 0106 
ISN 0107 
ISN 0108 
ISN 0109 
ISN 0110 
ISN 0111 
ISN 0112 
ISN 0113 

ISN 0114 

ISN 011S 
ISN 0117 
ISN 0119 
ISN 0121 
ISN 0122 
ISN 0124 

ISN 0125 
I SN 0127 
ISN 0129 
ISN 0131 
ISN 0133 

ISN 0135 

ISN 0137 


ISN 0139 
ISN 0141 
ISN 0142 
ISN 0143 
ISN 0144 
ISN 0145 
ISN 0146 
ISN 0147 
ISN 0148 
ISN 0149 
ISN 0151 
I SN 0152 
ISN 0153 
ISN 0154 
ISN 0155 
ISN 0156 
ISN 0157 
ISN 0158 
ISN 0159 
ISN 0160 

ISN 0161 

ISN 0162 
ISN 0164 
ISN 0166 
ISN 0167 
ISN 0168 
ISN 0169 
ISN 0170 
ISN 0171 
ISN 0172 

****** end OF 


IF (THRT<J).LT.0.37*<W&HT<J)£WGHT(K)CWINY>) GO TO 300 

IF ITHRTI JI.GT.1.25*IWGHTI J I CWGHT I K I CWINY 1 1 GO TO 300 

IF ITHRTI 1 1 ,LT.1.2*(WGHT( 1 1 tWGHT I J ) tWGHTI K) EWI NXGW1NY 1 1 GO TO 300 

IF ITHRTI I I .GT.3.0*IWGHT( 1IEWGHTI J ) tWGHTI K 1 EWINXtWINY) I GO TO 300 

IF (0IAMIK).GT.l.2*DIAM(JI) GO TO 300 

IF IOIAMI J).GT.3.5*DIAMIK>) GO TO 300 

WF I 3 1 =WTFU I K I 

WTI3)=WTIN(K) 

I SPAI 3) = ISPt K) 

THUT I 3 ) =THRT( K I 

M=1 

PR=0. 

VDES=0. 

CALL PERFKCLItN.VREF) 

IF I IERR.NE.O) GO TO 70 

NX = NX £ 1 

KX = NV C NX 

VF.Ht 1,KX> = I 

VEHI 2 1 KX ) = J 

VEHI3,KX)=K 

HINT! 1 » KXI =W INX 

WINT(2,KX)=W1NY 

PR T I K X I "W PL 


IFIKX.F0.1001 GO TO 69 
1FIKX.GE.60) GO TO 600 

69 IFIK.GT.KMAX) GO TO 300 

70 DO 200 L=JM1,LMAX 
IFIL.EO.NJ) GO TO 200 

W INZ=PI*IDIAM(K)£01AM( LI 1*1 SORT! I LENTI L I) **2 1 1 1 01 AMI K I -0 1 AM I L 1 1 
1 *0.51**211*5.0*0.$ 

IFITHRTIKI.LT. 0.30*<WGHTIK)EWGHTIL)£WINZ1) GO TO 200 
IF(THRT(KI.GT.1.25*(WGHTIKI tWGHT IL)£W1N2) 1 GO TO 200 
IFITHRTI JI.LT.0.32*(WGHTIJ>£WGHTIK)EWGHT(L>EWINYtWINZ)l GO TO 200 
I FI THRTI J I .GT. 1 .50* IWGHTt J ICHGHTI K1 CMGHT I L ) GWI NYEWI NZ ) ) GO TO 200 
IFITHRTIIl.LT. 1.20* I WGHT I I ) tWGHTI J 1 tWGHTI K 1 tWGHTI L 1 EWINXEWINYEWINZ 
1 I I GO TO 200 

IFITHRTI I I.GT.3.00*(HGHT( IltWGHTI J > tWGHTI K 1 tWGHTI L I EWINXtWINYEWlNZ 
1 I I GO TO 200 

IFIOIAMILI.GT. 1.2*01 AM (Kll GO TO 200 


IF(DIAMIK).GT.4.0*0IAM(L)1 GO TO 200 

WF I 4 1 =WTFU( L 1 

WTI4)=WTINIL) 

ISPAI 41-ISPILI 
THUT I 4 1 =THRT I L) 

M=2 

PR=0. 

. V0ES=0. 

CALL PERFIICLI.NfVREFl 
IF! 1ERR.NE.0I GO TO 200 
NX = NX 6 1 
KX - NV C NX 
VEHI 1 i KX I = I 
VEH(2,KX)=J 
VEH(3,KXI=K 
VEHI4,KXI=L 
WINTI 1 i KX I =W INX 
WINTI2,KX)=WINY 
WINTI3,KX1=WINZ 
PRT I KX 1 =WPL 
C 

CALL MISMTI 
C 

IFIKX.E0.100) GO TO 200 
IFIKX.GE.60) GO TO 600 
200 CONTINUE 
300 CONTINUE 
400 CONTINUE 
500 CONTINUE 
600 NV = NV 6 NX 
RETURN 
END 

COMPILATION ****** 
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F8B-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L I ST ,XREF , MAP.NCAL 

VARIABLE OPTIONS USED - SI ZE=( 1 26976,2 *576 1 DEFAULT OPTIONIS) USED 

IEWOOOO NAME MOX0 2M6 IR I 

1EW0461 PERFI 
IEW0461 SORT 
1EW0461 MISMT1 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME 

URIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION NAME 

MATE I 

00 

A68 







SAVALL 

A68 

3A1C 







SAVE 1 

44 88 

FC4 







SVACAV 

5450 

B4 8 







SCRACH 

5F98 

6 A60 








I.DCATION REFERS 

to symbol 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

14fj 

SAVALL 

SAVALL 1 

144 

SAVALL 

SAVALL 

148 

SAVE 1 

SAVE 1 

14C 

SVACAV 

SVACAV 

150 

SCRACH 

SCRACH 

154 

PERFI 

SUNRESOLVEO 

158 

SORT 

SUNRESOLVEO 

15C 

mismti 

SUNRESOLVED 

ENTRY ADDRESS 

00 





total LENGTH 

C9F8 






•*«*M0X02HE NIM REPLACED IN DATA SET 


1171 0S/360 FORTRAN H 


DATE 71.312/17.04.26 


COMPILER OPTIONS - NAME* 3 MAIN, 0PT=02, L INECNT=44, SOURCE , BCD, NOL 1ST, NODECK, LOAD, NOMAP, NOEDI T, I D 


ISN 

0002 

C 

SUBROUTINE MEAN (PI ,KSTAT ,SIGS,SX,SY) 

FROM MODAL VALUE ANO X PERCENT TAIL VALUE, CALCULATE MEAN AND SIGMA-SQUARE 

ISN 

0003 

C 

KSTAT = 1 

ISN 

0004 


P = 1.0 - PI 

ISN 

0005 


CALL NOTRI I P,Y,C, IE) 

ISN 

0006 


S1GS = -.5*Y C .5*S0RT(Y*Y C 4.0*AL0G( 2 .0*SX/SY - 1.0)1 

ISN 

0007 


SIGS 33 S1GS*S IGS 

I SN 

0008 


. SY = .5*SY*IEXP(1.5*SIGSI C 1.0) 

ISN 

0009 


RETURN 

ISN 

0010 


END 


*«•*** ENO OF COMPILATION ****** 



default optionisi used 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIEO LIST, XREF, HAP, NCAL 
VARIABLE OPTIONS USEO - SI ZE= ( 1 26976, 2 A576) 

IEWOOOO NAME M0X02EX ( R ) 

I EW OAM NOTRI 
IEW0A61 EXP 
IEW0A61 SORT 
I EW0A61 ALOG 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 




NAME 

ORIGIN 

length 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION NAME 

MEAN 

00 

23A 





LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

00 


NOTRI 

tUNRE SOLVED 

DA 

EXP 

tUNRESOLVED 

08 


SORT 

AUNRESOLVED 

DC 

ALOG 

AUNRESOLVED 


ENTRY AOURESS 00 

TOTAL LENGTH 2A0 

*«*«M0X02EX NOW REPLACED IN DATA SET 


(17) OS/360 FORTRAN H DATE 7 1 . 31 2/ 1 8 .05 .AT 

COMPILER OPTIONS - NAME» MA IN, OP T»02, L INECNT.AA, SOURCE , BCD, NOL I ST .NODECK .LOAD, NOMAP , NOEDI T , I D, 
ISN 0002 SUBROUTINE MISMTI 

C DETERMINE PERFORMANCE OF NEW VEHICLE IN TERMS OF MISSION MODEL INPUT 
ISN 0003 REAL LENT, ISP, ISPA.NPERPD 

ISN 000 A INTEGERS VEH , NMUL T , NONREC, NYD, I S , MAT , LYR, LE TT, L VD, M I N, LTR ,NVS , 

1 MRV,NRP,NYP,KODEP,IVEHA,NTRIP,NPLS,NRR,MR ,KODE V, F INISH.NSTG, 

2 NFML.NFMU.KODS, HAS, LABS, LABF, LABI 
C 

ISN 0005 COMMON/ SAVE 1/ F IN I SH ,NSTG, NC I , I L Y , LABF I 30 ) , L ABS ( AO ) , LAB I ( AO ) , 

1 NFMHAO) .NFMU(AO) .KODSIAO) ,STS1A1 ) ,STG( AO) , VLR I 50 ) ,WPR I 50 I , 

2 RPLMI 50) ,MAS(A0,3) , P.XD(12,50) 

ISN 0006 COMHON/SVACAV/ KNV,NOPT,KUOEP(30),RPLO(AO) ,IVEHA(50),NTRIP(50), 

1 NPLSI 50) ,NRR( 50) ,MK( 50) ,NVS( 60) , MRV( 60 ) , NRPI 60 I ,B1 I 60) ,B2 ( 60 ) , 

2 B 3 I 60 ) ,BA I 60 ) ,K0DEV(60> , NYP (2,60), VM( 2,60) 

I SN 0007 C0MM0N/SAV3/GR0, GUESS, LP ,NSOL ,MSOL ,NP, MOS ,NM I S.NSPR , NPERPDI 30 ) , 

1 PA0I30I ,LTR(50),PLR(50) ,RD I ST ( 56, A 1 , ALPI I A, 60) 

ISN 0008 COMMON/ SAVALL/LCK,SLO,NM,NEXO,NV,NUMD,MYRS,LZOPT I 8) , NYDI A6) .MAT (A6 

1 ) ,SUST( A6) ,DS(A6I , LYD I A6 ) , YO I A6 I , I S I 102 ) ,LYR< 252) , LETT! 250) , 

2 MINI 250) , YRLMI 250) ,VEH( A, 60) .NONREC I 120, 20 ) ,NMULT I 60,50) 

I SN 0009 COMMON/SCRACH/IP, IV.IG.NPAXI 2) ,NEH( A) ,NST( All ,THRT ( A 1 ) .0IAMIA1 ) , 

1 TSL I A I ) , LENT ( A 1 ) ,W TFUI A 1 ) ,WT I N I A1 ) , I SPI A I ) ,MZ! 50) ,LZ( 50) , 

2 M INTI 3,60 I , KX ,NX,WGHT I AO) ,WF( A) ,MTI A) , I SPA I A) , 

3 THUTIA),PRTI60),M, VOE 5,WPL,PR,K1, IERR.DUMI 6067 ) 


ISN 

0010 

DATA VREF,CLi/25573.,28.5/ 




I SN 

oon 

CF1=0. 




ISN 

0012 

KNS = 1 




I SN 

0013 

IE I NV.EO.O ) GO TO 10 1 




ISN 

0015 

00 100 M J= 1 ,NV 




1 SN 

0016 

I F 1 VEHI 1,KX).NE.VEH(1,MJ>) 

GO 

TO 

100 

ISN 

0018 

IFIVEHI 2,KX ) .NE . VEHI 2.MJI ) 

GO 

TO 

100 

ISN 

0020 

1 F 1 VEHI 3,KX ) .NE • VEHI 3 ,MJ ) ) 

GO 

TO 

20 

ISN 

0022 

IFIVFHIA.KX) .NE .VEHI A, MJ ) ) 

GO 

TO 

30 

ISN 

0024 

KX = 100 




ISN 

0025 

NX = NX - 1 




ISN 

0026 

RETURN 




ISN 

0027 

20 !F(VEH(3,MJ).NE.0I GO TO 

100 



ISN 

0029 

1 F ( KNS.E0.3 ) GO TO 100 




ISN 

00 31 

CF1 = EXPIB1IMJ1) 




ISN 

0032 

KNS = 2 




ISN 

0033 

GO TO 100 




ISN 

0034 

30 1FIVEH(A,MJ).NE.0) GO TO 

100 



ISN 

0036 

CF1 = EXPIB1IMJ) 1 
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ISN 

0037 


KNS = 3 

I $N 

0038 

100 

CONTINUE 

ISN 

00 39 

101 

GO TO I 200, 300,4001 , KNS 

ISN 

0040 

200 

M=0 

ISN 

0041 


N = 2 

ISN 

004 2 


IFIVEHO.KXI.NE.O) N°3 

ISN 

0044 


ifivehia.kxi.ne.oi n=4 

ISM 

0046 


GO TO 500 

ISM 

0047 

300 

N-2 

ISN 

0048 


M= I 

ISN 

0049 


IFIVEHI A.KXI.NE.OI M»2 

ISN 

00 3 1 


GO TO 500 

ISN 

0032 

o 

o 

N=3 

I SN 

0053 


M= 1 

ISN 

00 54 

500 

K1=VFH( l.KXI 

ISN 

0055 


00 501 1=1,4 

I SN 

0036 


IF(VEH( I ,KX).EO.O) GO TO 502 

I SN 

005 8 


K=VEH( I ,KX1 

ISM 

00 59 


WFI 1 l=MTFU(KI 

I SN 

0060 


HT( II=WTIN(K) 

ISN 

0061 


I SPA ( 1 1 = I SPI K I 

ISN 

0062 


IHUTI I ) =THRT (K) 

ISN 

00 63 

501 

CONTINUE 

ISN 

0064 

502 

DO 503 I = 1 , NM I S 

ISN 

00 65 


L2( 11 = 0 

I SN 

0066 


PR=CF 1 

ISM 

0067 


VOES=VLR( I 1 

ISN 

0068 


CALL PERFItCLI.N.VREF) 

ISN 

0069 


IFCHPL.GT.WPR(ll.ANO.[ERR.EO. 

ISN 

0071 

503 

CONTINUE 

ISN 

00 72 


CALL PACKILZ, VM I 1 , KX 1 , NMI S ,11 

ISN 

0073 


RETURN 

ISN 

0074 


END 


****** end OF COMPILATION ****** 


F88-LEVFL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, MAP, NCAL 

VARIABLE OPTIONS OSEO - S I ZE = I 126976, 24576) DEFAULT OPTIONIS) USED 

I EH OOOO NAME M0X02M 1 1 R I 

IEHQ461 PACK 
IEW046I PERFI 
IEW0461 EXP 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

MISMT l 

00 

466 








SAVE 1 

460 

FC4 








SVACAV 

1430 

D48 








SAV3 

1F78 

980 








SAVALL 

28Ffl 

3A1C 








SCRACH 

6318 

6 A60 









LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

108 

SAVE 1 

SAVE 1 

IOC 

SVACAV 

SVACAV 

110 

SAV3 

SAV3 

114 

SAVALL 

SAVALL 

118 

SAVALL 

SAVALL 

11C 

SCRACH 

SCRACH 

120 

PACK 

tUNRE SOLVED 

124 

PERFI 

SUNRESOLVEO 

126 

EXP 

^UNRESOLVED 

98 

SCRACH 

SCRACH 

AO 

SAV3 

SAV3 




ENTRY ADDRESS 

00 





TDTAL LENGTH 

C078 






•«**M0X02MI 


NOW REPLACED IN OATA SET 



(17) 


OS/360 FORTRAN H 


DATE 71.312/17.05.21 


ISN 0002 


COMPILER OPTIONS - NAME 3 MA 
SUBROUTINE NOTRIX 


IN, OP T=02, L I NECNT = 44, SOURCE , BCD, NOL I ST 
,P,D> 


, NODECK , LOAD, NOMAP, NOEDIT 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


T t!!L5V BR ^ T,NE C0MPUT ES Y = P(X) = PR08 THAT THE RANDOM VARIABLE U, 
DISTRIBUTED NORMALLY! 0 , 1 ) IS LESS THAN OR EQUAL TO X,. FIX) - THE 
ORDINATE OF THE NORMAL DENSITY AT X, IS ALSO COMPUTED. 

DESCRIPTION OF PARAMETERS X INPUT SCALAR FOR WHICH PIX) IS COMPUTED 

P - - OUTPUT PROBABILITY, D - - OUTPUT DENSITY COMPUTED 

METHOD - - BASED ON APPROX IN C. HASTINGS, APPROXIMATION FOR DIGITAL 
COMPUTERS, PRINCETON UNIV. PRESS, PRINCETON, N.J., 1955. SEE EON 26 2 17 
HANDBOOK OF MATHEMATICAL FUNCTIONS, ABRAMOWI T2 AND STEGUN, DOVER PUBL.»* INC. 


ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 

ISN 0007 
ISN 0008 
ISN 0009 
ISN 0010 


AX = ABS(X) 

T = 1 . 0 / 11.0 G • 23 164 1 9*AX ) 

D = 0.3989423*EXP(-X*X/2.0) 

P = 1.0 - D*T*1 1 1 ( 1.330274*T - 1.821256)*T G1.781478)*T 
* -0.3565638)*T £ .03193815) 

I F ( X ) 1,2,2 
IP = 1.0-P 
2 RETURN 
END 


ID, 


****** e N0 0F compilation ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, HAP, NCAL 

VARIABLE OPTIONS USED - SIZE=( 126976,24576) DEFAULT OPTIONIS) USED / 

1EW0000 NAME M0X02NR ( R I 

IEW0461 EXP 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 

NAME ORIGIN .LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME 

NDTR 00 IOC 


LOCATIUN REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION 

C8 EXP SUNRESOLVEO 

ENTRY ADDRESS 00 

TOTAL LENGTH 1E0 

****M0X02NR NOW REPLACED IN DATA SET 


D-48 



117) 


OS/ 360 FORTRAN H 


DATE 71. 312/17. 04. 53 


1 SN 


COMPILER OPTIONS - NAME" MAIN, UPT=02 , L I NECNT = 44, SOURCE 
0002 SUBROUTINE NOt R I ( P , X , C , IE I 


, SCO, NOL 1ST, NODECK, LOAO, NOMAP, NOEDIT, ID, 


C 

C COMPUTES X = P**(-1IIY), THE ARGUMENT X SUCH THAT Y = PIX) = 

C THE PROB THAT THE RANDOM VARIABLE U, DISTRIBUTED NORMALLY 1 0, 11 , IS 
C LESS THAN OR EQUAL TO X. FIXI, THE ORDINATE 0 F THE NORMAL OENSITY.AT X, 

C IS ALSO COMPUTEO 

C 

C P - INPUT PROBABILITY 

C X - OUTPUT ARGUMENT SUCH THAT P ■ Y = THE PROB THAT U, THE RANDOM 
C VARIABLE, IS LESS THAN OR EQUAL TO X 

C C - OUTPUT OENSITY, FIX) 

C IER - OUTPUT ERROR COOE 
C MAXIMUM ERROR IS 0.00045 

C 


ISN 

000 3 


IE = 0 

ISN 

0004 


X = • 99999E £74 

ISN 

0005 


C *= X 

ISN 

0006 


IF (P) 1,4,2 

I SN 

000 7 

1 

IE = -1 

ISN 

ooo a 


RETURN 

ISN 

0009 

2 

IF (P—1.0) 7,5,1 

ISN 

00 10 

4 

X = -* 999999E £74 

ISN 

oo n 

5 

C = 0.0 

ISN 

0012 

C 

RETURN 

ISN 

0013 

7 

C = P 

I SN 

0014 


1FIC ~ 0.5) 9,9,0 

ISN 

0015 

8 

C * 1.0 - C 

I SN 

0016 

9 

T 2 = A! DM 1.0/<C*C 

ISN 

0017 


T = S0RTIT2I 

ISN 

0018 

X * T-I2.515517CO. 

1 0. 1 89269*T 2 € < 

I SN 

0019 


I F 1 P-0.5 ) 10,10,11 

ISN 

00 20 

10 

X = -X 

ISN 

0021 

11 

C = 0. 39894 23*EXPT 

ISN 

0022 


RETURN 

ISN 

002 3 


ENO 

««»*** 

END OF 

COMPILATION ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, MAP, NCAL 

VARIABLE OPTIONS USED - SIZE" 1 1 26976, 24576) DEFAULT OPTION(S) USED 

I EWOOOO NAME M0X02NIIR) 

1EW0461 EXP 
I EW046 1 SORT 
IEH0461 ALOG 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


entry 





NAME 

ORIGIN 

LENGTH 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION 

NAME 

NUT R I 

00 

2A6 






LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL 

SECTION 

EO 

E8 

ENTRY ADDRESS 
TOTAL LENGTH 

EXP 

ALOG 

00 

2A8 

tUNRESOLVEO 

SUNRESOLVED 

E4 

SORT 

SUNRE SOLVEO 


»*««M0X02NI NOW REPLACED IN DATA SET 



17) 


OS/360 FORTRAN H 


DATE 71. 312/17. 12. 56 


COMPILER OPTIONS - NAME= MAIN, OP T=02, L INECNT-55, SOURCE .BCD, NOLIST .NODECK .LOAD, NOMAP, NOEDIT , ID. 
ISN 0002 SUBROUTINE OUTPTI 

C *** PRINT OUT BEST ASSIGNMENT *** 

C 

ISN 0003 DOUBLE PRECISION NAME 

ISN 000 A REAL NPERPO, LEVEL 

ISN 0005 LOGICAL EXT.ACCL 

ISN 0006 [NTEGER»2 YOPL ,NSYR, NSFX ,NRF X .NYRSST .NSTRFX.NPROG, KPROG.KODE , 

1 NYRSFX,KOOEM,KODESP»FINISH,NSTG,NFML,NFMU, RODS, MAS ,LABS,LABF, 

2 LABI , VEH.NMULT ,NONREC ,NYO ,IS,MAT,LYR,LETT,LYD,M1N,LTR 
C 

ISN 0007 COMMON/SAVE 1 / F INI SH, NSTG ,NC I , I LY.LABFI 30 ) , LABSI 50 ) ,LAB 1 150 ) , 

1 NFML ( 50 I ,NFMU (501 , KOOS I 50) ,STSI51),STGt50),VLRI50),WPR(50), 

2 RPLMI 50) ,MAS(50,3I , RXD(12,50) 

ISN 0008 C0MMON/SAV2/EXT,ACCL,KNSTG,KNFAM,KNCI,KNP,KNMIS,JFLAG,TREF,NCSTR, 

1 PMAX,PMIN,ISTRT,IFIN,MAXITR,MITR,K0DESPI6),TITLEI 10), LEVEL (20), 

2 CNTRVL ( 20) .FIXED! 20) ,K0DEM( 50) , NSYRI 50),NSFX( 50) .NAME ( 56 ) , 

3 YUPL'I 56 ) ,NRFX( 50) .NYRSST 1 85 ) , NSTRF X ( 85 ( ,NYRSFX( 85 ) , SUS ( 85 ) ,C ( 85 ) 

5, R ( 85 ) , S(85) ,CS(90) .NPR0GI90) ,KPRDG(90) , KO0EI90) 

ISN 0009 CI)MM0N/SAV3/GR0,GUESS,LP,NS0L,MS0L,NP,M0S,NMIS,NSPR,NPERPD(30>, 

1 PAOI 301 , LTRI 50) ,PLR< 501 .RD1STI 56,5) ,ALPI(5,60) 

ISN 0010 COMMON/ SA VALL / LCK ,SLO ,NM,NEXO,NV,NUMD,MYRS , LZOPTI 8 ) ,NYD( 56) .MAT (56 

1 ) .SUSTI56) ,0S(56) ,LYDI56),YD(56), I SI 102 ) , L YR ( 252 ) , L ETT ( 250 ) , 

2 MINI250) ,YRLM(250) ,VEH(5, 60) .NONRECI 120,20) ,NMULT(60, 50) 

C 

ISN ooi'l DATA ETR/1HE/ 

ISN 0012 DATA WTR/1HW/ 

C 

ISN 0013 WRITE (6,5010) 

ISN 0015 00 805 J= 1 ,NM 

ISN 0015 L=LETT(J) 

ISN 0016 K=LYR ( J ) 

ISN 0017 M= 1899C I L Y€K 

ISN 0018 IFIYRLMI JI.GT..001) GO TO 805 

ISN 0020 IF(LETTU-l).NE.L) WRITEI6.206) NAME! L ) , VLRI L ) ,WPR( L ) ,RPLM(L ) ,M, 

1 YRLM(J) 

ISN 0022 IFILETTI J-D.EO.L) WRI TE( 6, 2061 ) M, YRLMI J ) 

ISN 0025 GO TO 805 

ISN 0025 805 I * MINI J ) 

ISN 0026 IA-VEHI 1,1) 

ISN 0027 I 8=VEH( 2,1) 

ISN 0028 IC=VEH(3, I ) 

ISN 0029 ID=VEHI5,II 


ISN 0030 X = NMULT ( I , L ) 

ISN 0031 X = YRLMIJI*X 

ISN 0032 TR = ETR 

ISN 0033 IF(LTRIL).EO.Z) TR ■= WTR 

ISN 0035 IFILETTI J-ll.NE.L) HR I TEI 6 , 202 I NAME I L ) , VLRI L ) , WPR I L ) , RPLM (L ) ,M, 

1 X.STGI I A ) , STG 118), STG ( IC) ,STGI ID),TR 

ISN 0037 IFILETTI J-1I.E0.L) W RI TE I 6 , 2021 ) M,X, STGI I A ) ,STG I IB ) , 

1 STGI IC), STGI ID), TR 
ISN 00 39 *805 CONTINUE 

ISN 0050 RETURN 

ISN 0051 202 FORMAT ( IX , A6 ,6X , F 10 .0 , 5X , F 10. 0 , F 1 0. 0, 5X , I 5, 5X, F5 . 2 , 9X , 5 I A5 , 1 X ) ) 

ISN 0052 206 FORMAT I 1 X , A6 , 6X ,F 1 0. 0 ,5X , F 10.0 , F 10. 0 , 5X , 1 5 ,5X , F5. 2 , 9X , 

1 32HNO LAUNCH VEHICLE CAN ACCOMPLISH) 

ISN 0053 2021 FORMAT I 52X , 15 ,5X ,F5. 2 , 9X ,51 A5, IX ) ) 

ISN 0055 2061 FORMAT ( 52X , 15 , 5X , F5 .2 , 9X , 32HNO LAUNCH VEHICLE CAN ACCOMPLISH) 

ISN 0055 5010 FORMAT I BHOM I SS ION ,5X , I5HCHARACTERI STI C,5X,7HPAYL0AD,5X,6HRETURN» 

1 5X , 6HL AUNCH ,5X , 6HNUMBER , IOX , 7H0PT I MUM , 8X , 6HL AUNCH/ 7H TITLE.5X, 

2 16HVEL0CITY(FT/SEC),5X,5H( LBS) ,5X ,7HPA YLOAD, 5X .5HYEAR ,3X, 1 1H0F LA 
3UNCHES.5X, 15HLAUNCH VEHICLE,5X,5HSITE//) 

ISN 0056 END 

****** END OF COMPILATION ****** 


D-50 



F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L I ST ,XREF , MAP.NCAL 

VARIABLE OPTIONS USED - S I ZE =< 1 26976 , 24576) DEFAULT OPTIONIS) USED 

IEWOOOO NAME MOX02OI (R I 

IEW0961 I8COM= 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

UUTPT I 

00 

58C 








SAVE 1 

590 

FC4 








SAV2 

1558 

FEO 








SAV3 

2530 

9B0 








SAVALL 

2EB8 

3A1C 









LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

270 

SAVE l 

SAVE l 

274 

SAV2 

SAV2 

278 

SAV3 

SAV3 

27C 

SAVALL 

SAVALL 

200 

SAVALL 

SAVALL 

284 

I BCOM= 

SUNRE SOLVED 

ENTRY ADDRESS 

00 





TOTAL LENGTH 

60DB 





***M0X0?UI NOW 

REPLACED IN 

DATA SET 





SYMBOL TYPE 10 ADOR LENGTH LO 10 


EXTERNAL SYMBOL DICTIONARY 


PACK SD 01 000000 0000E8 

UNPACK LD 000052 01 

ITEM LO 000096 01 


D-51 



IOC 

OBJECT CODE 

ADDR 1 ADDR2 

STMT SOURCE STATEMENT 

F01FEB 





1 * 
2 4 

SUBROUTINE PACK ( 

L, M, I, N ) 





3 4 


this routine 

PACKS I WORDS IN THE L ARRAY TO THE 





4 4 


ARRAY M. OATA ITEMS L ARE TRUNCATED ON THE LEFT 





5 4 


ANO ONLY THE 

N LOW OROER BITS ARE RETAINED. 





6 4 


PACKED OATA 

IN M IS LEFT JUSTIFIED WITH 32/N ITEMS 





7 4 

8 4 


PER WORD. 


000000 




9 PACK 

CSECT 



000000 




10 

USING 

*.15 

USE REG 15 FOR BASE 

000000 

9027 

D01C 

0001C 

11 

STM 

2,7,28(13) 

SAVE REGS 

000 004 

9825 

1000 

00000 

12 

LM 

2,5,0(11 

LOAD AODRESSES OF ARGUMENTS 

000008 

5844 

0000 

00000 

13 

L 

A, 0(A) 

I TO REG A - NO. OF ITEMS TO RE PACKED 

000 ooc 

5875 

0000 

00000 

14 

L 

7,0(51 

N TO REG 7 - NO. OF BITS/ITEM 

000010 

4270 

F029 

00029 

15 

STC 

7 , SHIFT+3 

MOOIFY SHIFT INST WITH NO. OF BITS 

000014 

1367 



16 

LCR 

6,7 

NO. OF BITS SHIFT FOR DECREMENT 

000016 

067 0 



17 

BCTR 

7,0 

N-l FOR COMPARAND 

000018 

1011 



18 

SR 

1,1 

ZERO REG 1 

0000 1 A 

4150 

0020 

00020 

19 WORD 

LA 

5,32 

LOAD A 32 TO REG 5 FOR COUNT 

0000 IE 

5013 

0000 

00000 

20 

ST 

1,0( 3) 

ZERO STORAGE AREA 

000022 

5802. 

0000 

00000 

21 LOOP 

L 

0,0( 2) 

LOAD DATA TO REG 0 

000026 

8C00 

0000 

00000 

22 SHIFT 

SRDL 

0,0 

SHIFT DATA TO REG 1 

0000 2 A 

1 HO 0 



23 

SR 

0,0 

TRUNCATE ON LEFT FOR MOD ?**N 

000 02C 

8000 

5000 

00000 

24 

SLOL 

0,0(5) 

SHIFT BACK TO PROPER POSITION 

000030 

5603 

0000 

00000 

25 

0 

0,0( 31 

OR PACKED WORD TO REG 0 

000034 

5003 

00 00 

00000 

26 

ST 

0,013) 

STORE HACK TO PACKED AREA 

000038 

4122 

0004 

00004 

27 

LA 

2,A( 2) 

INCREMENT DATA ADDRESS 

GG003C 

4640 

F046 

00046 

28 

BCT 

A, NEXT 

COUNT DOWN ON NO. OF ITEMS 

000040 

9827 

DO 1C 

oooic 

29 

LM 

2,7,201 131 

RESTORE REGS 

000044 

07FE 



30 

BR 

1A 

RETURN 

000046 

8656 

F022 

00022 

31 NEXT 

BXH 

5, 6, LOOP 

BRANCH BACK IF SPACE LEFT 

000 04 A 

4133 

0004 

00004 

32 

LA 

3 , A( 3 1 

OTHERWISE INCREMENT STORAGE AOORESS 

00004E 

4 7F0 

F01A 

0001 A 

33 

8 

WORD 

ANO CONTINUE 


LOC 

OBJECT CODE 

ADDR1 ADDR2 

STMT SOURCE 

: STATEMENT 

F01FEB 





35 4 

SUBROUTINE UNPACK I 

1 L, M, I, N 1 





36 * 








37 * 


THIS ROUTINE 

UNPACKS I WORDS OF DATA FROM THE M 





38 4 


ARRAY TO THE 

L ARRAY. WORDS IN L ARE ZEROED, AND N 





39 * 


BITS ARE PLACED RIGHT JUSTIFIED FROM THE PACKED 





40 4 


ARRAY M. 






61 * 








42 

ENTRY 

UNPACK 


000052 




43 

USING 

*,15 

USE REG 15 FOR BASE 

000052 

9027 

U01C 

OOOIC 

44 UNPACK 

STM 

2,7,281 13) 

SAVE REGS 

000056 

9825 

1000 

00000 

65 

LM 

2,5,011) 

LOAD ADDRESSES OF ARGUMENTS 

0000 5 A 

5844 

0000 

00000 

46 

L 

6,0(6) 

1 TO REG 6 - NO. OF ITEMS TO BE PACKED 

00005E 

5875 

0000 

00000 

67 

L 

7,0(5) 

N TO REG 7 - NO. OF BITS/ITEM 

000062 

4270 

F 02 5 

00077 

48 

STC 

7 , LEFT+3 

MODIFY SHIFT INST WITH NO* OF BITS 

000066 

1367 



49 

LCR 

6,7 

NO. OF BITS SHIFT FOR DECREMENT 

000068 

067 0 



50 

BCTR 

7,0 

N-l FOR COMPARAND 

00006A 

4150 

0020 

00020 

51 DATA 

LA 

5,32 

LOAD A 32 TO REG 5 FOR COUNT 

0000 6 t 

6813 

0000 

00000 

52 

L 

1,0(31 

LOAD PACKED DATA TO REG 1 

000072 

1H00 



53 BACK 

SR 

0,0 

ZERO REG 0 

000074 

81J00 

0000 

00000 

56 LEFT 

SLOL 

0,0 

SHIFT N BITS TO REG 0 

000078 

5002 

0000 

00000 

55 

ST 

0,0(2) 

STORE IN L 

00007C 

4122 

0004 

00004 

56 

LA 

2,6(2) 

INCREMENT STORAGE ADDRESS 

000080 

4640 

E038 

0008A 

57 

BCT 

6, MORE 

COUNT DOWN ON NO. OF ITEMS 

000084 

9827 

DOIC 

OOOIC 

58 

LM 

2,7,281 13) 

RESTORE REGS 

000088 

0 7 Ft 



59 

BR 

16 

RETURN 

00 00 8 A 

0656 

F020 

00072 

60 MORE 

BXH 

5, 6, BACK 

BRANCH BACK IF MORE DATA 

00008E 

5133 

0004 

00004 

61 

LA 

3,6(3) 

OTHERWISE INCREMENT DATA ADDRESS 

000092 

67F0 

F018 

0006A 

62 

B 

DATA 

AND CONTINUE 

D-52 










LUC OBJECT CODE AOOR1 ADOR2 STMT SOURCE STATEMENT FOIFEB 

65 * FUNCTION I TEH I M, I, N ) i* 

65 * 

66 * THIS ROUTINE RETRIEVES THE I TH ITEM FROM THE PACKED 

67 * ARRAY M. 

68 * 






69 

ENTRY 

ITEM 


000096 




70 

USING 

*.15 


000096 

902 5 

001C 

oooic 

71 ITEM 

STM 

2.5,28113) 

SAVE REGS 

00009A 

9824 

1000 

00000 

72 

LM 

2,5,0(11 

LOAD ADDRESSES OF ARGS TO REGS 2,3,9 

00009E 

5833 

0000 

00000 

73 

L 

3,013) 

LOAD I TO REG 3 

OOOOA2 

0630 



74 

BCTR 

3,0 

SUBTRACT 1 FOR 1-1 

00 00 A 4 

4100 

0020 

00020 

75 

LA 

0,32 

LOAD A 32 TO REG 0 

OOOOA8 

BE 00 

0020 

00020 

76 

SROA 

0,32 

SHIFT TO REG 1 

0000 AC 

5004 

0000 

00000 

77 

D 

0,0(5) 

DIVIDE BY N 

OOOOBO 

5010 

F04E 

000E4 

78 

ST 

1 , TEMP 

NO. OF ITEMS/WORD 

0000 84 

1803 



79 

LR 

0,3 

1-1 TO REG 0 

0000b6 

8EOO 

0020 

00020 

80 

SRDA 

0,32 

SHIFT TO REG 1 

OOOOBA 

5000 

E04E 

OOOE4 

81 

D 

0, TEMP 

DIVIDE I-l BY NO. ITEMS/WORD 

OOOObE 

1851 



82 

LR 

5,1 

SAVE IN REG 5 TO INDEX ARRAY M 

00 00 CO 

8650 

0002 

00002 

83 

SLA 

5,2 

MULTIPLY BY 5 

0U00C4 

8E00 

0020 

00020 

84 

SRDA 

0,32 

REMAINDER TO REG 1 

0000 C 8 

5C04 

0000 

00000 

85 

M 

0,015) 

MULTIPLY BY N 

oooocc 

1831 



86 

LR 

3,1 

LOAD TO REG 3 TO INDEX SHIFT 

OOOOCE 

5815 

2000 

00000 

87 

L 

1,0(5, 2) 

LOAD DATA FROM M ARRAY 

000002 

8910 

3000 

00000 

88 

SLL 

1,0(3) 

LEFT ADJUST PROPER ITEM 

000006 

5844 

0000 

00000 

89 

L 

5,0(5) 

LOAD N TO REG 5 

0000 OA 

8000 

4000 

ooooo 

90 

SLOL 

0,0(5) 

SHIFT N BITS TO REG 0 

OOOOUE 

9825 

OOLC 

OOOIC 

91 

LM 

2,5,28(13) 

RESTORE REGS 

0000E2 

07EE 



92 

BR 

15 

RETURN 

00 00 E A 




93 TEMP 

DS 

F 






94 

END 




CROSS-REFERENCE 


SYMBOL LEN VALUE OEFN REFERENCES 

BACK 00002 000072 0053 0060 

DATA 00005 00006A 0051 0062 

ITEM 00005 000096 0071 0069 

LEFT 00005 000075 0055 0058 

LOOP 00005 000022 0021 0031 

MORE 00005 0000 8 A 0060 0057 

NEXT 00005 000056 0031 002B 

PACK 00001 000000 0009 

SHIFT 00005 000026 0022 0015 

TEMP 00005 OOOOE5 0093 0078 0081 

UNPACK 00005 000052 0055 0052 

WORO 00005 0000 1 A 0019 0033 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
120 PRINTEO LINES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST.NCAL 
VARIABLE OPTIONS tlSEO - SIZE=t 126976 i 25576 ) 
IEWOOOO NAME MOXOIPK(R) 

***«MOX01PK NOW REPLACED IN DATA SET 


L>- 


53 



FORTRAN IV G LEVEL It MOD 4 POCSTI DATE * 71312 18/09/23 


0001 


0002 

0003 


0004 


0009 

0006 


00 07 


000 8 
0009 


SUBROUTINE PDCSTI 

C DETERMINE IF MORE THAN UNE PAD NEEDED AT EACH COMPLEX AND IF PREVIOUSLY 
C UNCONSIDERED COSTS ARE TO BE ADDED TO TOTAL COST FOUND IN ALGORITHM 
C 

REAL NPERPD.NPUSEO 

INTEGER*2 KOUT ,LTR ,VEH,NMULT, NONREC ,NYD , IS ,MAT,LYR .LETT ,LYD, MIN, 

1 NVEH .MATCH . JF.JL.NADD.NX .MI NOPT . MORE .NPSTG »NP AD .NPFAM . NFS . 

2 NPINTL.NPINTU.MAPS.MAPF.MAPI.NINTYR.NTGYTR.MAF.MAIC.FINISH.NSTG. 
3LABF, LABS, LABI. NF ML, NFMU.KODS, MAS 

c 

C OMM 0N/SAVE1/ FINISH, NSTG,NC1,ILY,LABF(30),LABS(40),LABI(40), 

1 NFMLI40) ,NFMU(40),KnDS(40),STS(41 I.STGI40) , VLR I 50 ) , WPR ( 50 ) , 

2 P.PLMI 50) .MASI40.3) , RX0I12.50) 

COMMON/ S A V3/GR0, GUESS ,LP,NS0L,MS0L,NP.MOS,NMIS,NSPR,NPERPD(30), 

1 P ADI 30) ,LTR(50),PLRf50) ,ROI ST ( 56 ,4 » , ALP 1 1 4, 60 ) 

COMMON/ S A V4/ MAFI 30, 3) , MAICI40.3), 

* NPA0I2.60) .NPFAM ( 30,5) .NPINTLI 30,5) .NPINTUI 30,5), 

1 NFS! 40,4 I .NPSTGI 30, 10) .MAPS! 30, 10) ,MAPF(30, 10) .MAPI (30,10), 

2 PF AMO (30,5,2),PFAMS( 30,5 ,2 ) , PI NTS I 30,5 , 2 ) , PSTGDI 30, 10, 2 ) , 

3 PSTGSI 30, 10,2) 

COMMON/ SAVALL/LCK , S LO, NM ,NEXD , NV , NUMD ,MYR S , L 20PT I 8) ,NY0(46> .MAT 146 
1),SUST(46),DS(46I,LYO(46I,YO(46),IS(102),LYR(252),LETT(250), 

2 MINI 250) ,YRLM( 2501 ,VEH( 4,60) .NONREC I 120 , 20 ) , NMULT I 60, 50) 
CIIMMON/THMP/VNMI 2,250), 1 F LAG ,K I , NE XT , L OUT , SAVS I 40 ) , KOUT I 40) , 

1 N I NTYR I 40,20) .NTGYTR (40,20,2) , RECUR! 60,20, 2) 
COMMUN/SCRACH/EXTRA,NADO,NX, MORE! 10) *ZKP,WKP,NXKP,LZKPI5) ,DUME 111) 
*, A2.LZI46) ,W(500) .W2I500) , 

1 IDS! 5001 .WRI499I ,Z('500I ,COST( 2,250 > ,M I NOPT I 246,9) .NODE! 5,500), 

2 NPns,SIGS0(9l,ETC(9) , 

4 JFI20I , J L I 20 ) .MATCH! 20 ) .NPUSEOI 20 1 , NVE HI 20,6 1 
C 


IFIMIJS.FO.l.OR.MOS.EO.3) GO TO 362 
NUT = 0 

MORE = NUMBER OF NODE WHICH HAS BEEN CONSIDERED AS OPT. SOLN. 
502 00 355 I = 1,10 

IF I MORE I I ) .EO.NX ) GO TO 360 
IFIMUREIII.NE.O) GO TO 355 
MORE! I ) = NX 
NTEM = NPOS + 1 

IFI LP.GT.0I WR I TEI 6,404) NTEM, NX, MINX), TDSI NX ) ,2 1 NX ) 

GO TO 356 
355 CONTINUE 
357 WRITE (6,358) 


GUESS - 0.0 
RETURN 

325 WRITEI6.401) NX , PAD I I ) , J 
ZINX) * 20.0E30 
RETURN 

360 DO 361 J = 1,9 

I F I MORE I J ) . EO.O ) GO TO 354 

361 MOREIJI = MORE I J + l ) 

MORE! 10) = 0 

354 IFINADD.GE.l.OR.ILCK.EQ. 1 .AND. 1FLAG.E0.0) ) GO TO 359 
NEXO * 0 

IF I NOT • EO. 1 ) GO TO 500 

362 NOT = 1 

356 EXTRA = 0.0 

IFINP.EO.O) GO TO l 
DO 320 I = 1 ,NP 
DO 322 K = l.MYRS 
NPUSEOI K ) = 0.0 
DO 322 J = 1,6 
322 NVEHIK.J) = 0 

C COUNT NUMBER OF LAUNCHES REQUIRED PER PAD PER YEAR 


0041 


DU 321 J = 1 ,NM 





0042 


IFIYRLM(J).LT. .001) GO 

TO 

321 



0043 


Kl = MINIJ) 





0044 


JA = LETT I J ) 





0045 


L = LTRIJA) 





0046 


IF I NPAOI L,K1 ) .NE. I ) GO 

TO 

321 



0047 


M = LYRIJI 





0048 


X = NMULT I K 1 , JA ) 





0049 


X = YRLM(JI*X 





0050 


NPUSEOI M ) = NPUSEOI M ) ♦ 

X 




0051 


DO 323 ME = 1,6 





0052 


IFINVEH(M.ME).EQ.Kl) GO 

TO 

321 



0053 


IF I NVEHI M,ME ) .NE.O) GO 

TO 

323 



0054 


NVEHIM.ME) = K 1 





0055 


GO TO 321 





0056 

323 

CONTINUE 





0057 

321 

CONTINUE 






C SEE IF SECOND PAD IS REQUIRED AT 

ANY 

FACILITY 

0058 


DO 331 J = 1,20 





00 59 

331 

MATCH! J) = 0 





0060 


DO 324 J = l.MYRS 





0061 


IF (NPUSEOI Jl.GT. 2. 04NPERP0ID) 

GO 

TO 325 


0010 

0011 

0012 
0013 
00 14 

0015 

0016 

0017 

0018 
0019 
00 20 


0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 
00 31 
0032 
00 33 

0034 

0035 

0036 

0037 

0038 
00 39 
0040 



f-ORTRAN IV G LEVEL If MUD A 


PDCSTI 


DATE 


71312 


18/09/23 


0062 


IF (NPUSEDIJI.LE.NPERPDIIl) GO TO 326 



0063 


00 326 K = IdO 



006A 


IF INPSTGI IfKI.EO(O) GO TO 329 



006 b 


IF I PSTGOI 1 1 K 1 2 ) + PSTGSI 1 1 K , 21 . LT. . 001 ) 

GO 

TO 326 

0066 


DO 327 L = 1,6 

0067 


IF (NVEHI J.LI.EO. 01 GO TO 326 



0068 


LA = NVEHI J , L I 



0069 


DO 328 LB = 1,6 



00 70 


IF(VEH(LR,LA).E0.0) GO TO 327 



0071 


IF (VEH(LB,LA1.NE.NPSTG( 1,K) I GO TO 328 



0072 


00 330 LC = 1,20 



0073 


IF (MATCHILCI.EQ.O) GO TO 332 



007A 


IF 1 MATCH! LO.EQ.IO GO TO 333 



0073 


GO TO 330 



00 76 

332 

HATCHILCI = K 



0077 


JFILCI = J 



00 70 

333 

JL(LC) = J 



0079 


GO HI 326 



0080 

330 

CONTINUE 



0081 

328 

CONI INOE 



0082 

327 

CONTINUE 



008 3 

326 

CONTINUE 



00 8 A 

329 

00 336 K = 1,5 



0085 


IF INPFAMI I.KI.EO.OI GO TO 335 



00 86 


IF (PFAM|1I1,K,2I + PFAMSI I ,K , 2 I . LT . . 00 1 1 

GO 

TO 33A 

008 7 


00 336 L = 1,6 


00 88 


IF (NVEHI J.D.EO.Ot GO TO 336 



0089 


LA = NVEHI J , L I 



0090 


00 337 LB = 1,6 



0091 


IF IVEHILB.LAI.EO.OI GO TO 336 



0092 


LO = VEHILB.LAI 



009 3 


00 338 LC = 1,6 



009A 


IF (NFSILO.LCI.EO.OI GO TO 337 



0095 


IF INFSILO.LCI.NE.NPFAMI I,K) I GO TO 338 



0096 


K 1 = — K 



009 7 


00 339 LE = 1,20 



0098 


IF IMATCHILEI.EO.OI GO TO 360 



0099 


IF IMATCHILEI.E0.K1) GO TO 361 



0100 


GO TO 339 



0101 

360 

MATCHILE) ■ K 1 



0102 


JFILEI = J 



0103 

361 

JLILEI = J 



010A 


GO TO 336 



0105 

339 

CUNT INOE 



0106 

338 

CONTINUE 



0107 

337 

CONTINUE 



0108 

336 

CONTINUE 



0109 

336 

CONT INUE 



0110 

335 

00 362 K = 1,5 



0111 


IF (NPINTLI !,K)«EO.O) GO TO 326 



0112 


IF (PINTS! I, K, 21 .LT.. 001) GO TO 362 



0113 


DO 363 L = 1,6 



0 1 1 A 


IF (NVEHI J, LI. EO. 01 GO TO 362 



0115 


LA = NVEHI J , L I 



0116 


OU 366 LB = 1,3 



0117 


IF I VEHILB*1,LA1.E0.01 GO TO 363 



0118 


LC = VEHILB.LAI 



01 19 


00 365 LO = 1,6 



0120 


IF (NFS! LC.LOI -EQ.O) GO TO 366 



0121 


IF (NFSILC, LOt.NE. NPINTLI I, K)1 GO TO 365 



0122 


LE = VEHI L8+ 1 , LA 1 



0123 


00 366 LF ■= 1,6 



012A 


IF (NFSILE.LFI.EQ.O) GO TO 365 



0125 


IF (NFSILE.LFI.EO.NPINTUI I ,K) 1 GO TO 367 



0126 

386 

CONTINUE 



0127 


GO TO 365 



0128 

397 

K1 = -100 - K 



0129 


DO 368 LG = 1,20 



0130 


IF IMATCHILG1.E0.0I GO TO 369 



0131 


IF IMATCH(LG) .EQ.Klt GO TO 350 



0132 


GO TO 368 



0133 

389 

MATCH I LG I = K 1 



013A 


JFILG) = J 



0135 

350 

JI.ILG) = J 



0136 


GO TO 362 



0137 

368 

CONTINUE 



0138 

365 

CONTINUE 



0139 

366 

CUNT INUE 



0 1 AO 

363 

CONTINUE 



0 1 A 1 

362 

CONTINUE 



01A2 

326 

CONTINUE 




C ADO EXTRA PAD COSTS ASSOCIATED WITH THIS SOLUTION 

01A3 


00 351 J = 1,20 



0 1 AA 


IF (MATCHU).EO.O) GO TO 320 



01A5 


IF (MATCH! JI.LT. -100) GO TO 352 



01 A6 


IF (MATCHIJI.LT. 01 GO TO 353 





FORTRAN IV G LEVEL It MOD A 


PDCSTI 


DATE * 71312 


18/09/23 


0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 
0169 
01 70 

0171 

0172 

0173 
0 174 

0175 

0176 

0177 

0178 

0179 

0180 
0 1 H 1 
0182 
0183 
0 184 

0185 

0186 
0187 
0108 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 


0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
02 12 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 


K = MATCH! J ) 

EXTRA = EXTRA ♦ PSTGD(ltK«2) + PSTGSCI,K*2) * FLOAT (J L ( J ) -JF I J ) +1 1 
IF(NUT.FQ.O) GO TO 351 

IFIPSTGDI ! ,K,2) + PSTGSI 1 , K , 2 ) . LT. .01 ) GO TO 351 
NEXI) = NEXD ♦ 1 
NDUM - NUMO ♦ NEXD 


US I NUUM) = PSTGDI I » K » 2 ) 

SUST (NI)IIM) = PSTGSI I , K,2) 

MAT! NUUM) a -300 - I ♦ 2000 

" HAPS! I ,K) = NDUM 

NYU I NDUM) = JFIJ) 

L YO I NDUM ) a JL { J ) 

YD ( NDUM ) = 1.0 

LZ(MOIJM) = JL ( J ) - JFIJ) ♦ 1 

NDUM = NDUM ♦ NSPR ♦ NM1S 
IS(NDUM) = JFIJ) - 2 ♦ 1900 ♦ !LV 
GO TO 351 
353 K = -MATCH I J ) 

EXTRA = EXTRA ♦ PFAMDI I »K , 2 ) ♦ PF AMSII ,K , 2 ) AFLOAT I JL (J ) -JF ( J )+ll 
IF(NOT.EO.O) GO TO 351 

I F ( PFAMDI I »K»2 ) ♦ PFAMSU ,K ,2 ) .LT ..01) GO TO 351 

NEXD = NFXO ♦ 1 

NDUM = NUMO + NEXD 

DS < HUUM ) = PFAMDI 1 * K # 2 Y 

SUSTINDUM) = PF AM$| I ,K , 2 ) 

MAT I NDUM) a -200 - I ♦ 2000 

M APE ( I ,K ) = NDUM 


NYD I NDUM ) a JFIJ) 
L YD { NDUM) = JL I J ) 
YD I NDUM ) a 1.0 


L 7. 1 NUIJM) a JLIJ) - JFIJ) ♦ 1 

NDUM a NDUM ♦ NSPR + NMJS 
I SI NDUM ) = JFIJ) - 2 ♦ 1900 ♦ ILY 


GO TO 351 

352 K = -MATCH! J) - 100 

EXTRA = EXTRA «• PINTS(I,K,2) * FLOAT I JL C J ) - JF ( J ) ♦ 1 ) 

IFINUT.EO.O) GO TO 351 

IFIPINTSI I,K,2).LT..001) GO TO 351 

NEXD = NEXD ♦ 1 

NDUM = NUMO ♦ NEXD 

OSINOUM) a o.O 

SUSTINDUM) » PINTS! I, K, 2) 

MAT I NDUM) » -400 “I ♦ 2000 



MAPI I | ,K ) * 

NDUM 




NYOINDUM) 

= JFIJI 




LYOINDOM) 

= JL(J> 




YOINOUM) 

= 1.0 




LZINOUM) 

= JUJ) - 

JFIJ) 

+ 1 


NDUM = NDUM 

♦ NSPR + NMIS 




I SI NDUM) 

JFIJ) - 2 + 

1900 ♦ 

ILY 

351 

CONTINUE 




120 

CONTINUE 




1 

IFIMOS.EO.l. 

OR.MOS.EO. 31 

GO TO 

591 


IFINOT.EQ.l) 

GO TO 500 



IF( LP.GT.O) 

1W R I T E I 6*403 ) EXTRA 
C 

C AOO PREVIOUSLY NEGLECTEO SUSTAINING COSTS 
IFI LOUT.EO.O) GO TO 11 
501 00 10 I = 1,NUM0 

IFIKUUTII). EO.O. OR. LZII). EO.O) GO TO 10 
L 7 I I ) = 0 
LT = KOUTI I ) 

00 8 J * 1 * NM 
LM = MINI J ) 

IFI LM.EQ.O) GO TO 8 
LY = LYRIJ) 

IFIKI.E0.2) LY a ILYRIJ) ♦ ll/KI 
LI = LM 


LX = LETT! J ) 

IF I LTRI LX ) .E0.2 ) LI ■ LM ♦ NV 
DO 6 KK = 1,20 

IF INONRECI LltKK) .EO.O » GO TO 8 
I F CNONREC (L1,KK).NE.I) GO TO 6 
IFILY.GE.LZI I ) ) LZII ) = LY 
6 CONTINUE 
8 CONTINUE 

I F I MOS .80. 1 .OR.MOS.EO. 3. OR .LZII). EO.O) GO TO 10 

XX = LZ I I ) *K I - NYDI I ) ♦ 1 
EXTRA = EXTRA ♦ XX*$AVSILT) 

WRITE I 6,410) I , LZ ( I ),NYD( I ) , XX , SAVSI LT ) , EXTRA 
410 FORMAT I3!6,3F10.2> 

IFI OS I I ) • LT • 1 • 0. AND. N SOL . LE • 1 ) 

1EXTRA a EXTRA ♦ DS( I ) 

10 CONTINUE 

IFIMOS.EO.l. OR.MOS.EO. 3) GO TO 500 



FORTRAN IV G LEVEL It MOO 4 


POCST1 


DATE = 71312 


18/09/23 


0229 

0230 


0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 


CALL PACK(LZ,NOOE(1,NX>,NUMD,4> 

IFI LP.GT.O! 

1WRITE (6,4051 EXTRA 
11 IFlEXTRA.LT. .0011 NOT => 1 
IF(EXTRA.LT..001> GO TO 502 
TDSINXI = TOS(NX) + EXTRA 
Z (NX ) = Z ( NX ) + EXTRA 
IFUP.GT.O) 

1WRITE(6,210) Z (NX ) 

55 EXTRA ■ 100.0 
RETURN 

500 00 76 NO = l.NUMO 
76 L7.(N0I = LZ(N0)*K1 

CALL PACK(LZ,LZ0PT( 11 , NUM0+NEXD,5> 

359 EXTRA = 0.0 
RETURN 

210 FORMAT ( 12H NEW VALUE = , F12.21 

358 FORMAT! 36H0M0RE THAN 10 NODES HAVE BEEN TESTED! 

401 FORMAT ( 26H0P0SS 1 HLE SOLUTION AT N0DE,I4,49H NUT FEASIBLE. MORE TH 
IAN 2 PADS NFFOEO AT COMPLEX, 1X,A4,6H IN YEAR, 13! 

403 FORMAT (18H0EXTRA PAD COSTS =, F10.21 

404 FORMAT ( 1H0, 12 ( 1H* 1 , 19H POSSIBLE SOLUTION , 13 , 2X, 12( 1 H*> /1H ,13, 

1 29X,3(F9.2,5X) ) 

405 FORMAT (31H0EXTRA PAD £ SMALL SUST COSTS =, F10.2! 

END 


TOTAL MEMORY REQUIREMENTS 001BC2 BYTES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL, MAP 

VARIABLE OPTIONS USEO - SIZE=( 1 26976, 245761 DEFAULT OPTIONISI USED 

IEW0000 NAME M0X02PC( R I 

I EH 0461 IBCOM= 

IEW0461 PACK 


MODULE MAP 


ENTRY 

NAME LOCATION NAME LOCATION NAME LOCATION 


FNTPY AOORESS 00 

TOTAL LENGTH 14C28 


CONTROL SECTION 


NAME 

ORIGIN 

LENGTH 

PDCST f 

00 

IBC2 

SAV61 

1BC8 

FC4 

SAV3 

2B90 

980 

SAV4 

3510 

3188 

SAVALL 

6698 

3A1C 

TfcMP 

A0B8 

4110 

SCRACH 

EIC8 

6A60 


«***M0X02PC NOW REPLACED IN DATA SET 



1 17) 

OS/360 

FORTRAN H DATE 7 1.312/1 8. OA. 59 

COMPILER OPTIONS - NAME = MAIN,0PT=02,L1N£CNT=AA, SOURCE ,BCO,NOL 1ST, NODECK, LOAD, NOMAP, NOEOIT, 10, 

ISN 0002 


SUBROUTINE PERF 1 UNCI ,N , VREF ) 

ISN 0003 


REAL LENT, ISP, 1SPA.INCL 

I $N 0004 


INTEGER COUNT 

ISN 0005 


C OMMON /SCRACH/IP, IV, IG,NPAX( 2 ) ,NEH( A ) , NSTI A1 ) ,THRT( All ,DIAM(A1) , 

1 TSL(A1),LENT(A1),MTFU(A1),«T1N(A1),ISPIA1),MZ(50),LZI50I, 

2 HINT) 3,60) ,KX,NX,WGHT(AO),WF(A), WT(4) , ISPA(A) , 

3 THUTI A) ,PRTI60) ,M ,VDE S ,WPL , PR ,K1 , IERR ,OUM< 6067) 

ISM 0006 


DATA PI ,G /3.1A1593.32.17A/ 

ISN 0007 


K = N 

ISN 0008 


TLS = TSL(Kl) 

ISN 0009 


0 ! A = OlAM(Kl) 

ISN 0010 


KODE = 0 

ISN 00 U 


1ERR = 0 

ISN 0012 


V = VOES 

ISN 0013 


WPL = 0. 

ISN 0014 


1FIPR.LE.0.) GO TO 30 

ISN 0016 

10 

WPL = PR 

ISN 0017 

30 

00 100 COUNT = 1,50 

ISN 0018 


W = WPL 

ISN 0019 


00 AO 1*1, K 

I SN 0020 

AO 

W = WCWFI I ) 6WT ( 1 ) 

ISN 0021 


WLO = W 

ISN 0022 


VIOL = 0. 

ISN 0023 


00 50 1=1, X 

I SN 0024 


WB = W-WFt 1 1 

ISN 0026 


I FI WB.GT.O. 1 GO TO A8 

I SN 0027 

A5 

IERK = 2 

ISN 0028 


RETURN 

ISM 0029 

AS 

VIOL = VIOL l G»ISPA( 1 l*ALOG(W/WB> 

ISN 0030 

50 

W = WB-WTI 1 ) 

ISN 0031 


IF (KOOE) 90,55.90 

ISN 00 32 

55 

IFIPRI 70,70,60 

ISN 0033 

60 

VLOSS = VIOL-VREF 

ISN 00 34 


GO TO 97 

I SN 0036 

70 

TB = 0. 

ISN 0036 


DO 80 1=1, K 

ISN 0037 

80 

TB = TB C WF11 )*1SPA( ll/THUTI I) 

ISN 0038 


WX = WB * EXP ( VOES/!SPA(K)/G) 

ISN 0039 


TB = TB - (WX-WB)MSPA(K) /THUTIK) 

ISN 0040 


TOW = TLS/WLO 

ISN 0041 


IF (TOW. GT. 1.5) TOW =1.5 

ISN 0043 


VLOSS = 6800. *( 2. -TOW) 6 2800.*( THUT ( 1 t /TLS-1 . ) 


* C.5E6*PI*OIA**2/WLO£A. 1» EXPITB/125. ) -1530. *COS( INCL/57. 296) 


ISN 

0044 

90 

DELV = VIOL-VLOSS-VREF-V 

ISN 

0046 


WPL = WPLSCWPLGWTIKI )*OELV/ISPA(K)/G*( l.EWB/ 1 WB6WF( K ) 1 1 

ISN 

0046 


IFI ABS(OELV).GT 

.1.) GO TO 100 

ISN 

0048 

95 

IF(KOOE.EO.O) 

GO TO 96 

I SN 

0060 

no 

IF IWPL.LT.O.I 

IERR • 1 

ISN 

00 62 

120 

RETURN 


ISN 

0053 

96 

PR = WPL 


ISN 

00 54 

97 

V = VOES 


ISN 

0055 


K = NGM 


ISN 

0056 


KOOE = 1 


I SN 

0057 


WPL = 0* 


ISN 

0058 

100 

CONTINUE 


ISN 

0059 


IERR = 3 


ISN 

0060 


RETURN 


ISN 

0061 


END 


*«***» 

END OF 

COMPILATION ****** 

, 

D-58 






F88-LEVEL LINKAGE EOITOR OPTIONS SPECIFIED LIST, XREF, HAP, NCAL 

VARIABLE OPTIONS USED - SI ZE* 1 1 26976, 245761 DEFAULT .OPTIONIS I USED 

IFWOOOO NAME M0X02PKR) > 

IfcWOA61 COS 
IEW0A61 EXP 
IEW0A61 ALOG 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME 

PERFI 00 ABC 

SCRACH ACO 6A60 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

120 

SCRACH 

SCRACH 

128 

EXP 

SUNRESOLVED 

fUTPY ADDRESS 

00 


TOTAL LENGTH 

6E20 



*«e*MOX02PI NOW REPLACE!) IN DATA SET 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION 

12A COS JUNRESOLVEO 

12C ALOG tUNRE SOLVED 


( 17 ) 


OS/ 360 FORTRAN H 


OATE 71,312/17.26.58 


COMPILER OPTIONS - NAME= MAIN, OP T«02, L INECNT=AA, SOURCE , BCD, NOL 1ST .NODECK .LOAD, NOMAP, NOEDI T , I D, 


ISN 

0002 

c 

r 

SUBROUTINE PRINT I 

***PRINT OUT DECISION COST CATEGORIES*** 

ISN 

0003 


REAL NPERPD 

ISN 

OOOA 


I NT EGER*2 LSA,NYS,KOOEF,LST ,MST, I ST , JST ,KST , VEH, NMULT .NONREC ,NYD 


ISN 0005 

ISN 0006 

ISN 0007 
ISN 0008 

ISN 0009 


1 IS,MAT,LYR,LETT,LYD,MIN, L TR, NPSTG,NPAO,NPF AM,NFS,NP INTL ,NP INTO, 

2 MAPS,MAPF,MAPI ,F INI SH ,NSTG ,NFML ,NFMU, KODS ,MAS , LABS , L ABF , LAB I , 

3 MAF.MAIC 

COMMON/ 5AV0MP/ NF AM ,K FL AG , F AM ( 30 1 , KODEF ( 30 ) ,FMNR ( 30 ) ,FMSUS I 30 ) , 
1JST! 30) ,YDF< 301 , LSAI AOI , SNR < AO ) , NYS I AO I , 0 I NT ( AO ) , S I NT I AO ) , KST 1 AO ) , 

2 YD) (AO I, YDS! AO) , 1ST! AO) , FMSLS ( 30 , 2 ) , SUSL S ( AO , 2 ) , S INTL S ( AO ,2 ) , 

3 LST( 30,51 ,Y0PF( 30,5) , MSTI 30, 10 I , YDPS ( 30, 10 ) 

COMMON/ SAVE 1/ F INI SH, NSTG ,NC I , ILY.LABFI 30) .LABS (AO) ,LABI (AO) , 

1 MFML(AO) ,NFMU( AO) ,KOOS( AO) , STS( A 1 > , ST G( AO ) , VLR I 50 > ,WPR(50>, 

2 RPLMI 50) ,MAS(A0,3I , RX0(12,50) 
COMMnN/SAV3/GRO,GUESS,LP,NSOL,MSOL,NP,MUS,NMIS,NSPR,NPERPD(30>, 

1 PAD ( 301 ,LTRI 50) ,PLR( 50) .RDISTI56, A) , ALP) I A, 60) 

COMMON/SAVA/ MAF (30,3), MAIC(A0,3>, 

» NPAO( 2,60 1 ,NPFAM( 30,5) ,NPINTL( 30,5) ,NPINTU( 30,5) , 

1 NFS( AO, A ) ,NPSTG( 30, 10) , MAPS! 30, 1 0 ) , MAPF ( 30 , 10 ) ,MAPI I 30,10), 

2 PFAMD(30,5,2I ,PF AMS (30,5,2) , PINTS) 30, 5 , 2 ) ,PSTGD( 30,10,2) , 

3 PS1GSI30, 10,21 

COMMON/ SAVALL/LCK , SLO ,NM, NEXD.NV , NUMD,M YRS , LZOPT ( 8) »NYD( A6) ,MAT ( A6 
1),SUST(A6),DS(A6) ,LYD( A6 ) , YD( A6) , I S( 102) , LYR ( 252 ) .LETT (250), 

2 MINI 250) , YRLMI 2501 , VEHI A, 60) , NONRECI 1 20, 20) , NMULT ( 60 , 50) 


ISN 0010 
ISM 0012 
ISN 0013 
ISN 00 IA 
ISN 0015 
ISN 0017 
ISN 0019 
ISN 0021 
ISN 0023 
ISN 0025 
ISN 0027 
ISN 0028 
ISN 0030 

ISN 0032 


> IF(NUMD.EO.O) RETURN 
WRITEI6,211) 

DO 925 I = l.NUMD 
J =MAT I I) 

IFIJ. GT. 10001 J .« J - 2000 
IF (J.LT.-AOOI GO TO 9071 
IF (J.LT.-300) GO TO 9072 
IF (J.LT.-200) GO TO 9018 

I F ( J.LT.-100) GO TO 3A5 
IF(J.LT.O) GO TO 3A0 
00 9073 K * 1,3 
IF (MAS! J.KI.NE.I) GO TO 9073 

IFIK. EO.il WR I TE ( 6,208 ) I , DS I I ) ,SUST( I ) ,STGI J) ,NYD( I ) , L YD ( I > , 
1 IS( ICNMISCNSPR) , YOU) 

I F ( K.E0.2) WR IT E I 6 ,907A ) I ,0S( I ) , SUSTI I) , STG( J ) ,NYD( I ) , L YD ( I > , 
1 IS( ICNMISCNSPR), YD(I) 


D-yj 



1 SN 0034 

ISN 0036 
ISN 0037 
ISN 0038 
ISN 0039 
ISN 0040 
ISN 0042 

I SN 0044 

ISN 0046 

I SN 0041) 
ISN 0049 
ISN 0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0064 
ISN 0056 

ISN 0058 

ISN 00 60 

ISM 0062 
ISN 0063 
ISN 0064 
ISN 0065 
ISN 0066 
I SN 0068 
ISN 0069 

ISM 0070 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0074 
ISN 0076 
ISN 0077 


ISN 0078 
ISN 0079 
ISN 0080 
ISN 0081 
ISN 0082 
ISN 0084 
ISN 0085 
ISN 0086 

ISN 0087 
ISN 0088 
ISN 0089 
ISN 0090 
ISN 0091 

ISN 0092 

ISN 0093 

ISN 0094 


ISN 0095 
ISN 0096 
ISN 0097 
ISN 0098 
ISN 0099 
ISN 0100 
ISN 0101 
ISN 0102 
ISN 0103 
ISN 0104 
****** end OF 


I,DS(I>,SUST(!),STGIJ>,NYDI1),LYDII), 


9076 

I.DSI I ) , SUSTI 1 ) ,F AMI JX ) ,NY0l I ) ,LYDI I ) , 
I #0SI lit SUSTI I) iFAMI JX) , NYDI I ) ,LY0( 1 1 , 
I » 0 S I 1 1 , SUSTI I) ,FAMt JXI ,NYDI 1 1 ,LY01 1 1 , 


9076 CONTINUE 
345 JX=-J-100 
JY=NFMLI JXI 
JZ=NFMU( JX) 

00 9079 K = 1,3 

IF IMAICIJX.KI.NE.I) GO TO 9079 

IFIK.EO.il W R I TE I 6 , 210 ) I ,OSf 1 1 , SUS T( 1 1 ,F AMI JY I , FAMI JZ I ,NYD( I I , 
1 IYOII), ISI ICNMISCNSPR), YOU) 

IFIK.E0.2I WRITE! 6, 9080) I.DSI 1 1 , SUSTI 1 1 ,F AMI JY) , FAMI JZ I ,NYDI 1 1 , 
1 IYOII), ISlICNMIStNSPRI, YDII) 

IFIK.E0.3I WRITE I 6 , 9081) I ,DS( I ) , SUSTI I ) ,F AMI JY) , FAMI JZ ) ,NYDI I ) , 
1 LYDII), I S I 1 CNM ISCNSPR), YOU) * * 

CD TO 926 
9079 CONTINUE 
9018 JX = -J - 200 

00 9082 K = 1,5 

IF (MAPFI JX.KI.NE.l) GO TO 9082 
KX = NPFAMIJX.K) 

WRITE! 6,9083) I ,OSt I ), SUSTI I ) ,FAMI KX) , PAD! JX ) , NYD 1 1 ) ,LYDI I ) , 

1 ISlICNMIStNSPRI, YO(l) 

GO TO 925 
9082 CONTINUE 
9072 JX = -J - 300 

DO 9084 K = 1,10 

IF (MAPS! JX.Kl.NE.il GO TO 9084 

KX = NPSTGI JX ,K) 

WRITE 1 6, 9085) I , OS 1 1 I, SUSTI I ) , STGI KX ) , PADI JX) ,NYDI I ) ,LYDI I ) , 

1 ISI ICNMISCNSPR) , YOU) 


IFIK.E0.3) WRITE! 6,9075) 
1 ISI ICNMISCNSPR) , YDII) 
GO TO 925 
9073 CONTINUE 
340 JX=-J 

DO 9076 K * 1,3 
IF (MAFIJX,K).NE.I) GO TO 
IFIK.EO.il WRITE! 6,209) 

1 ISI ICNMISCNSPR), YOU) 
IFIK.E0.2) HR1TEI6, 90771 
1 ISI ICNMISCNSPR), YOU ) 
IFIK.E0.3I WR ITE 1 6 ,9078 ) 
1 ISI ICNMISCNSPR) , YDII) 


GO TO 925 
9084 CONTINUE 
9071 JX * -J - 400 

DO 9086 K = 1,5 

IF (MAPI! JX,K) .NE.I I GO TO 9086 
KX = NPINTLI JX,K| 

KY = NPINTUIJX.K) 

WR ITE I 6,9087 )I,D5(II,SUST(I),FAHIKX),FAM(KY) ,PAD( JX > ,NYDI I ) ,L YD 1 1 ) 
. 1 , ISlICNMIStNSPRI, YDII) 

GO TO 925 

9086 CONTINUE 
925 CONTINUE 

RETURN 

208 FORMAT I I4,6X,2F12.2,5X,A4, IX, 14HSTAGE HARDWARE , 29X , 13 ,9X , 13 , BX , 

1 I5,7X,F5.0) 

209 FORMAT I 14 ,6X , 2F 1 2. 2 , 5X , A4 , IX, 15HSHARE D HARDWARE , 28X , I 3 , 9X , I 3 , 8X , 

1 I5.7X.F5.0) 

210 FORMAT! 14, 6X.2F12. 2, 5X.15H INTEGRATION OF ,A4,5H AND ,A4, 

1 9H HARDWARE, I1X, 13, 9X, 13, 8X, 15, 7X.F5.0) 

211 FORMAT! 25H10UANTITIES BRANCHEO UPON/ l HO, 6HNUM8ER , 5X , 1 1 HDE VELOPMENT 
*, 2X, 10HSUSTAINING,50X,10HYEAR AVAIL, 2X.9HLAST YEAR,2X,9HDEV STAR 
*T , 2X, 12HDEV DURATION//) 

9074 FORMAT I 14 , 6X , 2F 1 2 . 2 , 5X , A4 , 1 X .9HSTAGE ETR ,34X , 1 3 ,9X, I 3 , 8X , 1 5 , 7X , 

* F5.0) ! 

9075 FORMAT I 1 4 , 6X , 2F 1 2 . 2 , 5X , A4 , IX .9HSTAGE WTR ,34X , I 3 ,9X , I 3 , 8X , I 5 , 7X , 

* F5.0) 

9077 FORMAT I 14 , 6 X , 2F 1 2 . 2, 5X , A4 , 1 X , 10HSHARED ETR ,33X , 1 3 , 9X , I 3 , 8X , 1 5 , 

* 7X , F5.0) 

9078 FORMAT I 14 ,6X , 2F 12 . 2 , 5X , A4 , 1 X , 1 OHSHAREO WTR , 33X , 1 3 , 9X , 1 3 , 8X , 1 5 , 7X , 

* F5.0I 

9080 FORMAT I 1 4 ,6X ,2F 1 2. 2 , 5X , 1 5HINTEGR AT ION OF ,A4,5H AND ,A4,4H ETR, 

1 16X,I3,9X,13,8X,I5,7X,F5.0) 

9081 FORMAT I I4,6X,2F12.2,5X, 15HINTEGRATI0N OF ,A4,5H AND ,A4,4H WTR, 

1 16X, I 3 , 9X , I 3 , 8X , 15, 7X ,F5.0) 

9083 FORMAT I 14 , 6X , 2F 1 2. 2, 5X , A4 , 1 X , 14HSHARE0 AT PAD , A4 , 25X , 1 3 , 9X , I 3 , 

* BX,I5,7X,F5.0I 

9085 FORMAT I 14, 6X ,2F 12. 2, 5X, A4, IX , 1 3HSTAGE AT PAD , A4 ,26X , 1 3 ,9X , 13 ,8X , 

0 I5,7X,F5,0) 

9087 FORMAT I 14 ,6X,2F 12. 2,5X , 15HINTEGRAT ION OF ,A4,5H AND ,A4,1X, 

1 7HAT PAO ,A4,8X,I3,9X,I3,8X,I5,7X,F5.0) 

END 

COMPILATION ****** 


D-60 


F8R-LEVEL LINKAGE EOITOR OPTIONS SPECIFIED LIST, XREF, NAP, NCAL 

VARIABLE OPTIONS USED - SIZE-1 126976, 245761 DEFAULT OPTIONIS) USED 

I EWOUOO NAME MUX02PNIR) 

IEW0461 1BCGM- 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

PH I NT I 

00 

1 ORA 








SAVDMP 

1090 

1*BC 








SAVE 1 

255 0 

FC* 








SAV3 

3510 

980 








SAV* 

3E98 

3188 








SAVALL 

7020 

3AIC 









LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

AID 

SAVOMP 

SAVDMP 

*1* 

SAVE 1 

SAVE 1 

*10 

SAV3 

SAV3 

*IC 

SAVA 

SAV* 

*20 

SAV* 

SAV4 

*2* 

SAVA 

SAV* 

*28 

SAVALL 

SAVALL 

*2 C 

SAVALL 

SAVALL 

* 30 

IBCOM= 

SUNRESOLVEO 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

AA*0 






----M0X02PN NOW REPLACED IN DATA SET 


(17) OS/360 FORTRAN H ; DATE 71.312/18.10.52 

COMPILER OPTIONS - NAME- MAI N , 0PT<=02 , L INECNT-44, SOURCE , BCD, NOL I ST .NODECK , LOAD, NOMAP , NOEDI T , I D, 


ISN 

000 2 

c 

r 

SUBROUTINE REUSE 

ESTIMATE number of initial units to purchase 

ISN 

0003 


INTEGER-2 NU ,NBY,MOOE, NOB, VEH.NMULT.NONREC , NYD, 1 S, MAT, LYR .LETT , 
1 LYD.MIN 

ISN 

000* 


COMMON/ SAVSAR /COR, POJI 3) ,SRJ(3,3) ,NU( AO) , NBY 1 AO ) , NOB) AO) , R INT 1 AO ) , 

1 PLCINTI AOI.XLTI AO) , PLCT(AO) ,UPPI AO) , TAT 1 AO ) , TAMT1 50) , SR (40,3), 

2 MODE! 40,31 ,PLC( 40,3) 

ISN 

0005 


. COMMON/ S A VALL /LCK , SLO ,NM, NEXD.NV .NUMD.M YRS , LZ0PTI8) ,NYDI46) .MAT (46 

1I,SUST(A6),DS(A6),LY0( A6),YD1A6),IS( 102) . LYR ( 252 ) ,LETT( 250) , 

2 MIN (2 50) ,YRLM(250I ,VEH( A ,60) .NONRECI 120,20) ,NMULT(60,50> 

ISN 

0006 


COMMON/SCRACH/ 1 1 ,NUS( AO) ,MSA VE( AO) , I SAVE ( AO) ,KLUE( AO) , 

1 STGYHWI 40,20 ),RINTMX1 40,20), STGMAXI 40,20, 2) ,STGYTR (40,20,2), 
2 R INTYR ( 40 , 20 ) , DUM( 1047) 

ISN 

0007 

c 

I - II 

I SN 

000 8 


IFIKLUE(I).GT.O) GO TO 100 

ISN 

0010 


NU(I) = - MAXO (2,-NUS(I» -1) 

ISN 

0011 


RETURN 

ISN 

0012 


100 TL = 0.0 

I SN 

0013 


YY = TATI I ) 

ISN 

001* 


NIKI) = -2 

ISN 

0015 


• DO 200 J = 1 ,MYRS 

ISN 

0016 


IF (STGYHWI I, ji.LT.. 001) (50 TO 200 

ISN 

0018 

c 

TAM = 365. /STGYHWI I ,.) ) 

TAM = MAX ALLOWABLE AVERAGE TA TIME IN DAYS FOR YEAR J 

ISN 

0019 


XX = YY 

ISN 

0020 


TL = TL t STGYHWI I , J ) 

I SN 

0021 


YY = TATI I l-ITL )--PLCT( I ) 

ISN 

0022 


YY = 2.0 -YY - TATI I ) 

I SN 

002 3 


TAA = .5-1 XX & YY) 

ISN 

002* 

c 

IFINOBI I l.EO.l) GO TO 120 
CALCULATE AVERAGE MISSION TA TIME FOR ORBITER ONLY 

ISN 

0026 


COUNT = 0.0 

ISN 

0027 


TOT = 0.0 

ISN 

0028 


DO 110 K - 1 , NM 

ISN 

0029 


IF(LYRIK).NE.J) GO TO 110 



c 

CHECK IF STAGE I IS TOP STAGE OF VEHICLE MK 

I SN 

00 31 


MK = MIN1K) 

ISN 

00 32 


00 105 11 - 1,4 

ISN 

0033 


111 = 5-11 

ISN 

00 3* 


IFIVEHIU1 .MKI.EO.OI GO TO 105 


D-6l 



ISN 0036 IFtVEHdU .MKI.EQ.II GO TO 106 

ISN 0038 GO TO 110 

ISN 0039 105 CONTINUE 

ISN 0090 106 NETT = LETT ( K ) 

ISN 0091 XN = NMULTIMK.NETT) 

ISN 0092 COUNT = COUNT 6 YRLM(K)*XN 

ISN 0093 TOT = TOT £ TAMT ( NETT) *XN*YRLMI K ) 

ISN 0099 110 CONTINUE 

ISN 0095 TAA = TAA 6 .5 £ TOT/COUNT 

ISN 0096 120 !F( TAM. GE. TAA) GO TO 200 

ISN 0098 NROY = TAA/TAM £ .9999 

ISN 0099 NX = NUII) 

ISN 0050 NU(I) = MINOI-NRQY.NXI 

ISN 0051 200 CONTINUE 

C COMPARE NUMBER REQUIRED BY LIFETIME TO NUMBER REQUIRED BY TAT 
ISN 0052 X = - NUt II 

ISN 0053 IFKXPXLTI m.LT.TLI NUI 1) = - 1NTITL/XLTIII £ .9999) 

ISN 0055 RETURN 

ISN 0056 END 

****** END OF COMPILATION ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST. XREF t MAP.NCAL 

VARIABLE OPTIONS USED - S I ZE = ( 126976 ,29576 I DEFAULT OPTIONIS) USED 

I EW 0000 NAME M0X02RSIR) 

IEW0961 FRXPR* 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME 

REUSE 00 908 

SAVSAR 908 A5C 

SAVALL F38 3A1C 

SCRACH 9958 6A60 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

128 

SAVSAR 

SAVSAR 

1 2C 

SAVALL 

SAVALL 

130 

SAVALL 

SAVALL 

139 

SCRACH 

SCRACH 

138 

SCRACH 

SCRACH 

13C 

SCRACH 

SCRACH 

140 

FRXPRa 

JUNRESOLVED 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

B3B 8 





****M0X02RS NOW 

REPLACED IN 

DATA SET 





D-62 



17) 


OS/360 FORTRAN H 


DATE 71.312/18.06.21 


COMPILER OPTIONS - NAME = MA I N, 0PT=02, L INECNT=44, SOURCE . BCD.NOL 1ST .NODECK .LOAD « NOMAP . NOEDIT, 1 D* 


1 SN 

000 2 


SUBROUTINE REVLUS 



CTHIS SUBROUTINE RECALCULATES THE APPROPRIATE VALUES FOR RECURRING COSTS 

ISN 

000 3 


INTEGER H . PROG 

ISN 

0004 


IMTEGEP.«2 LTR,V£H,NMULT,NONREC,NYD, I S ,MAT,L YR, LETT , L YD,M IN, 

6 KVEHI , LABEL, LVARY.LVD, I VEH.LVS.LVSF ,NOP ,NSSF ,NSRF ,NSXF ,NDSF 

ISN 

ooob 


. LOGICAL SKIP 

ISN 

0006 


REAL NPERPO 

ISN 

0007 


COMMON/SAVRT/RVARI 20,50) 

ISN 

0008 


COMMON/ SAV3/GRO,GUESS,LP,NSOL,MSOL,NP,HOS,NMIS,NSPR, NPERPO 130), 
I PADI 30) , LTRI 50) ,PLRI 50) ,RDI ST 1 56, A) ,ALP! 1 A, 60) 

ISN 

0009 


COMMON/ SAVALL/LCK,SLO,NM,NEXD,NV,NUMD,MYRS,LZUPT( 8) ,NYO( 46) ,MATf 46 
1 ) , SUST ( 46 ) ,DS 1 46 ) , LYOI 46 ),Y0(46),IS( 102), LYR 1252), LETT 1250), 

2 MINI 250) ,YRLMI 250) ,VEH( 4,60) .NONRECI 120,20) ,NMULT (60,501 

ISN 

00 10 


COMMON /VARNCE/KSTAT, VAR 1 1 40 I , VARF 1 50 ) , VARM I 5 6 ) , FMVAR I 2 , 30 ) , 
1 FI VAR I 3, 40), PL VAR I 3, 56) ,SVAR(5,40> 

ISN 

0011 

r 

C OMMIIN/ SCR ACH/M,N,NCS, PROG, I ODD, I ERR , SKI P , MYFL AG, JS , NSCALE ( 5 ) , 

1 NSL I 101 .TOTAL I 20) ,W I 20) ,01 20) ,XOUT( 20) ,VOUT( 20) ,RRR( 20) .YEAR 120) 
2, Y I 20) .KVEHI (50) .LABEL! 50) , L VAR Yl 70 ) ,LVD( 70) , IVEHt 70) ,LVS(70>, 

3 LVSFI80) ,VNAM< 80) ,NOP ( 86 ) , R F ( 86 1 ,CF(86) ,SF(86> ,FLAGR( 86) , 

4 FLAGS! 86) ,NSSF( 86) ,NSRF( 86) ,NSXF( 86) ,NDSF( 86 ) , SUST F ( 86 ) , NL VP ( 86 ) 
5, NSTRRCI 86) .NYRSRCI 86) , LNOF (86>,NSTRST(86),LNDATE(86),NPR0(90>, 

6 KI'ROI 90) , CSX ( 90) ,LZ( 46 ) , RCOS T ! 60), KVEHI 60) , I MAGE ( 830 ) , 

7 XSCHI 10,70) , PL SCH( 10,70) , XL VSUMI 20,50) , RECUR! 20,50) ,0UM(361 I , 

8 RVX ( 20) ,RPLX( 20) 

ISN 

0012 


00 33 II = 1,20 

I SN 

0013 


RVX (II) = 0.0 

ISN 

0014 


33 RPLXI II) = 0.0 

ISN 

oo ib 


L = PROG 

ISN 

0016 


NSTRRC(L) = 100 

ISN 

0017 


NYRSRCILI = 0 

1 SN 

0018 


LNOATE(L) = 100 

ISN 

0019 


IF (NLVP(L).EQ.O) GO TO 21 

ISN 

0021 


00 34 LC = 1,20 

ISN 

002 2 


34 RECUR ( LC , L ) = 0.0 

ISN 

0023 


IJ = NL VP ( L ) 

ISN 

0024 


H = LVARY(L) 

ISN 

002b 


IB = LVS(H) 

ISN 

0026 


IF ( I8.LT.4I 18 = 4 

ISN 

0020 


00 38 K=1,IJ 

ISN 

0029 


IF (LVD(H) -EO.O) GO TO 38 

ISN 

0031 


IA = LVSIHI-3 

ISN 

0032 


IF (IA.LT.1I I A= 1 

ISN 

0034 


IK = LVO(H) 

ISN 

003b 


ILV = IVEH(H) 

ISN 

0036 


DO 37 J=1,!K 



c 

RCST = VFII. RECURRING COST/YR. BY MISSION 

ISN 

003 7 


RCST = XSCHI J,H1*RC0ST( ILV) • 



c 

RCPL = PAYLOAD RECURRING COST/YR. 

ISN 

003 8 


RCPL = PLSCHI J,HI*PLR(L> 

ISN 

0039 


OU 36 1=1,4 

ISN 

0040 


II = LVSIHI-IBCICJ-l 

ISN 

0041 


IF ( II.LT.1I 11 = 1 

I SN 

004 3 


IFIKSTAT. EO.O. OR. SKIP) GO TO 36 

ISN 

004b 


RVX( II) = RVX (II) £ RCST 

ISN 

0046 


RPLXI II ) = RPLXI II ) £ RCPL 



c 

DISTRIBUTE RECURRING COST BY YEAR 

ISN 

0047 


36 RECUR ( 1 1 , L ) = RECUR 1 1 1 , L ) GALPI 1 1 , ILV 1 »RCST £ ROI STI L, I ) *RCPL 

ISN 

0048 


37 CONTINUE 

1 SN 

0049 


IFIKSTAT. EO.O. OR. SKIP) GO TO 42 

ISN 

00 b 1 


VTOT = 0.0 

ISN 

00b2 


DO 39 JX = 1,4 

ISN 

00 b3 


KX = VFH(JX.ILV) 

I SN 

00 b 4 


IF(KX.EO.O) GO TO 40 

ISN 

00 b6 


39 VTOT = VTOT £ SVAR(1,KX) 

ISN 

00b 7 


JX = JX £ 1 

ISN 

00 b 8 


40 XJX = JX - 1 

ISN 

00 b 9 


00 41 IX = 1,20 

ISN 

0060 


RVAR(IX.L) = ( VTOT*RVX( IX) )/XJX £ PL VAR ( 1 , L ) *RPLXI I X ) 

ISN 

0061 


I F ( RVARI IX, LI .GT..001 IRVARI IX, L ) ° R VAR ( I X , L ) / 1 RVX 1 IX ) £ RPLXIIX)) 

ISN 

0063 


41 C0NI1NUE 

1 SN 

0064 


42 NYRSRCI L ) = MAXO ( N YR SRC ( L I , I I ) 

ISN 

006b 


NSTRRCI L I = MINO ( NS TRRCI L 1 , 1 A ) 

ISN 

0066 


LSIII) = LNDATEIL) 

ISN 

0067 


LVSUB = L VS I H ) 

ISN 

0060 


LNDATEIL) = M INOI L SUB ,LVSUB) 

ISM 

0069 

c 

38 H = H C 1 

NYR SRC £ NSTRRC » 0 FOR DEVELOPMENT PROGRAMS 

ISN 

00 70 


21 IF (NSTRRCI L) .EO. 100) NSTRRC 1 L ) = 0 

ISN 

007 2 


99 RETURN 

ISN 

0073 


END 

*««*=• 

END OF 

COMPILATION ****** 
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F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, MAP, NCAL 

VARIABLE OPTIONS USED - SIZE-1 126976,24576) DEFAULT OPTIONISI USED 

1 EW OOOO NAME M0X02RVIR) 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 





NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

REVLUS 

00 

672 






SAVRT 

678 

FAO 






SAV3 

1618 

980 






SAVALL 

1F98 

3A1C 






VARNCE 

5988 

ADC 






SCRACH 

6A98 

6A60 







LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

128 

SAVRT 

SAVRT 

12C 

SAV3 

130 

SAVALL 

SAVALL 

13A 

SAVALL 

138 

VARNCE 

VARNCE 

13C 

SCRACH 

1 AO 

SCRACH 

SCRACH 

1AA 

SCRACH 

1A8 

SCRACH 

SCRACH 

1 AC 

SCRACH 

150 

SCRACH 

SCRACH 



ENTRY ADDRESS 

00 




TOTAL LENGTH 

CEF8 





LOCATION NAME 


IN CONTROL SECTION 

SAV3 

SAVALL 

SCRACH 

SCRACH 

SCRACH 


****M0X02KV NOW REPLACED IN DATA SET 


I 17) OS/ 360 FORTRAN H 


DATE 71. 312/17. 08. A6 


1SN 


1SN 

ISN 

1SN 

ISN 

ISN 


ISN 


ISN 


COMPILER OPTIONS - NAME*= MAI N, OP T=02, L !NECNT=AA, SOURCE .BCD, NOL 1ST , NODECK, LOAD, NOMAP, NOEDtT, ID, 
0002 SUBROUTINE SHIFTS 

C THIS SUBROUTINE SHIFTS THE DEVELOPMENT START DATES AND DURATION IN ORDER 
C TO ACHIEVE A SMOOTHER LEVEL OF SPENDING 
C 


0003 
000 A 

0005 

0006 
0007 


0008 


0009 


OOUBLE PRECISION NAME 
LOGICAL SKIP, ACCL, EXT 
REAL LEVEL 
INTEGER H , PROG 

INTEGER*2 YOPL,NSYR,NSFX,NRFX,NYRSST,NSTRFX,NPRDG,KPROG, 

l kode.nyrsfx.kooem.kodesp, 

6 KVEHI .LAREL.LV ARY , L VO , IVEH,LVS,LVSF,NOP,NSSF,NSRF,NSXF,NDSF 

common/sav2/ext,accl,knstg,knfam,knci,knp,knmis, jflag.tref.ncstr, 

1 PMAX.PMIN, ISTRT, IFIN,MAXITR,MITR,K0DESP(6I .TITLE! 10 ) , L E VEL ! 20 ) , 

2 CNTRVL! 20) .FIXEO! 20) ,K0DEM( 50) ,NSYRI 50),NSFXI 50) .NAME (56), 

3 Y0PLI56) ,NRFX( 50) .NYRSST ( 86 ) .NSTRFXI BA I .NYRSFX 1 86 ) , SUS ! 86 ) ,C ( 84) 
6, RIBA), S(8AI,CS(90),NPROG(90),KPR0G(90>, KOOE(90I 

COMMON/SCRACH/M.N.NCS, PROG, 1000, 1 ERR , SK I P.MYFLAG, JS .NSCALE ( 5 ) , 

1 NSL! 10) .TOTAL! 20) ,W( 20) ,DI 20) ,XOUT( 2 0) , VOUTl 20 ) ,RRR( 20 ) , YEAR 1 20 ) 
2, Y( 20 I, KVEHI (50), LABEL (5 01 , LVARY! TO > , LVD! 70) , I VEH( 70) , LVS ( 70 ) , 

3 LVSF(80I,VNAM(B0I , NOP ( 86 I , RF ( 86 ) ,CF ( 86 ) , SF I 86 > ,FLAGR( 86 ) , 

A FLAGS! 86) ,NSSF( 86) ,NSRF( 86) ,NSXF ( 86 1 , NDSF I 86 I , SUSTF ( 86) ,NLVP ( 86) 
5, NSTRRCI 86) ,NYRSRC(86) ,LNDF( 86) ,NSTRST( 86) ,LN0ATE( B6) ,NPR0(90), 

6 KPRUI90) , CSX! 90) ,LZ(A6) ,RC0ST( 601, KVEH! 60 ), IMAGE ( 830) , 

7 XSCH! 10,70) ,PLSCH( 10 , 701 , XLVSUM! 20, 50) , RECUR! 20,50 ) ,0UM (A01 ) 


ISN 

00 1 0 

110 

I ODD = 1000 G 1 


I SN 

0011 


Gn TO (1A0, 150, 160, 168, 170, 178, 180), 

I OOD 

ISN 

0012 

1*0 

STR = S(PROG) 


ISN 

0013 


SI PROG) = STR G 1.0 


ISN 

00 1* 


IFISIPROGI.GT.TREF G 21.) NOP(PROG) 

» 1 

ISN 

0016 

1*5 

CALL CONSTR 


ISN 

0017 


IF ( IERR.NE.O) GO TO 110 


ISN 

0019 

1* 

MYFLAG * 1 


ISN 

0020 


RETURN 


ISN 

0021 

150 

S! PROG) = STR - 1.0 


ISN 

00 22 


IF (S(PROG).LT.TREF) GO TO 110 


ISN 

002* 


GO TO 1A5 


tSN 

0025 

160 

S(PROG) = STR 


ISN 

0026 


IFIRIPROGI.LE.. 0001. OR. CF< PROG >.LE.. 

0001) 

ISN 

0028 


CKR = RIPROG) 


ISN 

0029 


CKC = C(PROG) 


ISN 

0030 


CKS = SUS IPROG) 

,\ 


/ 
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NOS = NYRSST I PROG) 

NSS = NSTRST (PROG) 

NSR = NSTRRC(PROG) 

NYRC = NYRSRC(PROG) 

NSX = NSTRFX ( PROG ) 

NSO = LNDATE(PROG) 

1FI.NOT.EXT) GO TO 110 
RIPROGI = CKR £ 1.0 

NSTRST ( PROG ) = INTI2.O*R(PROGI/3.0 £ .999) 

NSTRRC(PROGI = NSR £ 1 
NSTRFX) PROG) = NSX £ 1 
LNIJATE ( PROG I = NSO £ 1 
IF (NLVP(PROG).EO.O) GO TO 165 
IJ = NLVPIPROGI 
H = LVARY(PROG) 

00 162 1=1, IJ 
NSLI I ) = LVS) H ) 

LVSIH) = tVS (H ) £ 1 
162 H = H £ 1 

00 39 LC = 1,20 
39 RRRILC) = RECUR) LC, PROG) 

169 CALL REVLUS 
165 CALL CONSTR 

IF ( IERR.NE.O) GO TO 110 
1 F ( RF ( PROG ) - RIPROGI) 9010,9020,9030 
C DEVELOPMENT DURATION IS STRETCHED OUT 
9010 C(PRI)G) = (.8 C .2*R(PRUG)/RF|PR0G)I * CFIPROG) 

GO TO 9050 

9020 CIPROG) = CFIPROG) 

GO TO 9050 

C DEVELOPMENT DURATION IS ACCELERATED - CRASH PROGRAM 
9030 X = AINT t ,5*RF ( PROG) £ .99) 

IFIKIPROGI.lt. X) RIPROG) = X 

CIPROG) = CFIPROG) * EXP 111. -R I PROG) /RF I PROG) ) / IRIPROG)/ 
1 RF ( PROG ) - .91 ) 

9050 IF INYRSST(PROG).EO.O) GO TO 19 

NYRSSTIPROG) = NDSF I PROG I - LNDF1PR0G) £ LNDATE I PROG ) - 
1 NSTRST) PROG) £ NSSFIPROG) 

C THE FOLLOWING OEFN. OF NYRSST IS THE ORIGINAL 
C NYRSSTIPROG) = R I PROG I /RF I PROG) * FLOAT I NDSF I PROG ) ) £.001 

X = NDSF I PROG) 

XI = NYRSSTIPROG) 


ISN 

0072 


SUS I PROG ) » CIPR0G)/CF(PR0G)*SUSTFIPR0G)*X/X1 

ISN 

00 73 


GO TO 14 

ISN 

0074 

168 

IF 1 .NOT. EXT) GO TO 110 

ISN 

00 76 


StPROG) = STR - X.O 

ISN 

0077 


IF f SIPROGI .LT.TREF) GO TO 110 

ISN 

00 79 


IFINLVPI PROGI.EO.O) GO TO 165 

ISN 

0081 


GO TO 164 

ISN 

0082 

170 

S I PROG) = STR 

ISN 

000 3 


IF (CKR.EQ.RFtPROG) .AND. .NOT . ACCL ) GOTO 180 

ISN 

0005 


R I PROG) « CKR - 1.0 

ISN 

0086 


NSTRST I PROG ) « INT ( 2. 0*R I PROG ) /3.0 € .999) 

ISN 

0087 


NSTRRCIPROG) * NSR - 1 

ISN 

0088 


NSTRFX I PROG ) = NSX - 1 

ISN 

0009 


LNDATE (PROG) = NSO - 1 

I SN 

0090 


IF (NLVPI PROG) .EO.O) GO TO 165 

ISN 

0092 


IJ = ML VP ( PROG ) 

ISN 

0093 


H = L VARY ( PROG ) 

ISN 

0094 


DO 172 1=1, IJ 

I SN 

009 5 


LVS(H) = NSL(I) - 1 

ISN 

0096 

172 

H = H 6 1 

ISN 

0097 

175 

GO TO 164 

I SN 

0090 

178 

S(PKOG) = STR C 1.0 

I SN 

0099 


!FIS(PROG).GT.TREF C 21.) NOP(PROG) ■ 1 

ISN 

0101 


IF(NLVPIPROG).EO.O) GO TO 165 

I SN 

0103 


GO TO ) 64 

ISN 

0104 

180 

SI PROG) = STR 

I SN 

0105 


RIPROG) = CKR 

ISN 

0106 


CIPROG) = CKC 

I SN 

0107 


SOS (PROG) = CKS 

ISN 

0108 


NYRSSTIPROG) = NDS 

ISN 

0109 


NSTRST I PROG ) = NSS 

ISN 

01 10 


NSTRRCIPROG) = NSR 

ISN 

0111 


NYR SRC (PROG) « NYRC 

ISN 

0112 


NSTRFX! PROG) = NSX 

I SN 

0113 


LNDATE I PROG ) * NSO 

ISN 

0114 


IF (NLVPI PROG ). EO.O) GO TO 190 

ISN 

0116 


IJ = NLVPI PROG ) 

ISN 

0117 


H = L VAR Y ( PROG ) 

ISN 

0110 


DO 182 1 = 1, I J 

ISN 

0119 


LVSIH) * NSLI I ) 

ISN 

0120 

182 

H = H t 1 

ISN 

0121 


DO 36 LC = 1,20 


ISN 0031 
ISN 0032 
ISN 0033 
ISN 0039 
ISN 0035 
ISN 0036 
ISN 0037 
ISN 0039 
ISN 0090 
I SN 009 1 
ISM 0092 
ISN 0093 
ISN 0099 
I SN 0096 
ISN 0097 
ISN 0098 
ISN 0099 
I SN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0059 
ISN 00 55 
I SN 0056 
ISN 0058 

ISN 0059 
ISN 0060 
ISN 0061 
ISN 0062 

ISN 0063 
ISN 0069 
ISN 0066 

ISN 0067 
ISN 0069 


ISN 0070 
ISN 0071 
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ISN 

0122 

36 RECURI LC*PROG 1 

ISN 

0123 

190 MYFLAG » 0 

ISN 

012A 

RETURN 

ISN 

0125 

END 

**•«** 

ENU OF 

COMPILATION ****** 


F88-LE VEL LINKAGE EDITOR OPTIONS SPECIFIED L1ST,XREF,HAP,NCAL 
VARIABLE OPTIONS USEO - SIZE*! 126976, 2A576) 

IEWOOOO NAME M0X02SHIR ) 

IEd0A6I EXP 
IEW0A61 CONSTR 
IEW0A61 REVLUS 


DEFAULT OPT ION I S I USED 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME 

ORIGIN 

length 

NAME 

SHIFTS 

00 

7C2 


SAV2 

7C8 

FEO 


SCRACH 

17AB 

6 A60 



LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

138 

SAV2 

SAV2 

140 

SCRACH 

SCRACH 

148 

SCRACH 

SCRACH 

ISO 

EXP 

$UNRE SOLVED 

1S8 

RFVLUS 

SUNRESOLVEO 

entry ADDRESS 

00 


total LENGTH 

8208 



LOCATION 


NAME LOCATION NAME LOCATION NAME 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


I3C 
1AA 
l AC 
15A 


SCRACH SCRACH 

SCRACH SCRACH 

SCRACH SCRACH 

CONSTR S UNRESOLVED 


««**MQX02SH NOW REPLACED IN DATA SET 
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OOOl 


0002 

0003 

OOOA 

0005 

0006 


0007 

0008 


0009 


0010 

0011 


00 1 2 
0013 


001 A 
00 15 
0016 
00 17 
0018 

0019 

0020 

0021 

0022 

0023 

002A 

0025 

0026 
0027 
002 8 

0029 

0030 

0031 

0032 

0033 
003A 
00 35 
0036 
00 37 

0038 

0039 
OOAO 


OOA 1 
00 A 2 
OOA 3 
00 A A 
OOA 5 
00A6 
OOA 7 
OOA8 
00 A 9 
00 50 

0051 

0052 

0053 
005A 

0055 

0056 

0057 


SUBROUTINE SMOOTH 

C BUDGET SMOOTHING PROGRAM - R.E. SLVE 
C MODIFIED BY C.J. GOLDEN 

DOUBLE PRECISION NAME 
LOGICAL SKIP, OUT, ACCL, EXT 

real level .nperpd 

INTEGER PROGfH 

INTEGEP*2 LTR.YOPL , NS YR ,NSFX , NRF X , NYR SS T , NSTRE X ,NPROG, KPRUG , 

* i koue,nyrsfx,kudem,kooesp,finish,nstg,nfml,nfmu,kods,mas,labs, 

2 I. ABE, LABI, VEH,NMUI. T, NON REC,NYD, IS, MAT, LYR, LETT, LYU, MIN, 

6 KVEHI .LABEL, LVARY.L VO, I VEll , L VS , L VSE , NUP , NSSF , NSRF , NSXF , NUSE 
COMMON/SAVER/ RE I XI) 112, 8A ) 

COMMON/ SAVE 1/ E I N I SO, NS TG ,NC I , I L Y , L ABF I 30 I , LABS ( AO I , LAIII I AO I , 

1 NEMLIAOI .NEMUIAOI .KOIJSIAO) ,STSt All ,STGI AO > , VLR I 50 ) , WPR ( 50) , 

2 RPLMI60) ,MAS ( AO, 3 I , RXDI12,50> 

COMMON/ SAV2/E XT , ACCL ,KNS TG , KNF AM, KNC I , KNP , KNM1 S , JEL AG, T RE F , NCSTR , 

1 PMAX.PMIN, ISTRT, I FIN, MAX ITR.M! TR .KODESPI 6) , T 1 TL E I 10 1 , L E VEL 1 20 I , 

2 CNTRVLI20) .FIXED! 20) ,KU0EM(50I ,NSYR( 501 .NSEXI 50) , NAME I 561 , 

3 YDPLI 561 .NRFXC50) .NYRSSTI BA) , NSTRFXI BA) , NYRSFX I RA ) , SUS I BA ) , C 1 8A ) 
A, RIIIA), SI 8A) ,CS( 90) ,NPROGI90I ,KPR0G(90I , K0DEI90) 

COMMON / S A V3/GR0 « GUI: SS , L P , NSOL ,MSOL ,NP, MOS , NM1 S , NSPR , NPERPD I 30 ) , 

1 P ADI 30 1 , LTR I 50 I , PLR I 50 ) ,RD I ST ( 56 , A ) , AL P 1 1 A, 60 ) 

COHMUM/SAVALL /LCK, SLO ,NM, NLXD, NV , NUMD, M YRS , L / OPT | 8) .NYIXA6) ,MAT IA6 

1 ) .SUSTIAM ,DS1A6) , LYDIA 61 ,YD(A6) , 1SI 1021 , LYR (252) .LETT I 2501 , 

2 MINI 2501 , YRLMI 2501 , VE HI A , 60 ) , NONREC I 1 20,20) , NMIJL T I 60,60) 

COMMON/ V A RNCE /KSTAT ,VARI I AO) ,V ARE (50) , VAR Ml 5 6) , F MVAR I 2 , 30 ) , 

1 E IVARI 3, AO) ,PLVAR I 3,561 tSVARI 5, AO) 

COMMON / SCR AC H/M , N , NC S , PROG, IODD, I ERR ., SKI l> ,MYFL AG, JS , NSC ALE I 5 ) , 

I NSLI 10) .TOTAL I 20 1 ,W(20) ,01 20) , XUUTI 20 l,VOI)T I 20) ,RRRI 20) .YEAR (20) 
2, Yl 20) ,KVEHI(50),LABEL(50I,LVARY«70),LVD(70) , I VEHI 70 ) , L VS I 70 ) , 

3 t VSFI 80) ,VNAM( 801 , NOP I 86) ,RE( 86) ,CF(R6> ,SF( 86) ,ELAGR( 86) , 

A FLAGS! 86) , NSSF I 86) , NSRF I 86) , NSXF ( 86) .NOSE ( 86) .SUSTEI 86) ,NLVP(86) 
5, NSTRRC I 86 ) , NYR SRC I 86) ,LNDE(86) ,NSTRSTI 86) , LNDATEI 86) ,NPR0(90) , 

6 KPR0I90) , CSX I 90 I ,LZ( A6I ,RCOSTI60) , KVEHI 60) , IMAGE! 830) , 

7 XSCHI 10,70) .PLSCHI 10,70) , XLVSUMI 20, 50 ) , RECUR I 20 , 50 ) .K0DXI90), 

8 NPR00I90) , KPROO I 90 ) , KODDI 90) ,XMUDEI 20) ,UB( 20) ,DUM( II 
DIMENSION PRGLVIA) 

EQUIVALENCE ILS, LEVEL! 1 ) ) , I LF ,LE VELI 2 ) ) 

OATA ASTR /1H*/ 

DATA ZERO / 1H0/ , 

OATA FLET / 1HF/ 

OATA MLET / 1 HM/ 

DATA ULET /1HU/ 

OATA PRGLV /AHPROG, AHRAM , AHLEVE, AHL / 

DATA BLANK /1H / 

C 

I (IDO = 0 

nscaleiii = i 

NSCALEI2) = 0 

NSCALE I 3 1 = 0 

NSCALEI A I = 0 

NSCALE I 5 1 = 0 

IFIFINISH.GT.il GO TO 18 

PMAX = 5000. 

PM I N = 1500. 

C ACCL = TRUE IMPLIES USE ACCELERATION OPTION 
ACCL = .TRUE. 

C EXT = TRUE IMPLIES USE EXTENSION OPTION 
EXT = .TRUE. 

DO 5 1=1,10 

5 TITLE I I ) = BLANK 
00 6 I = 1,20 
CNTRVLI I ) = BLANK 

6 FIXED! II = 0.0 
WRITE I 6,399 I 

16 CALL INPUT (6HTITLE , TITLE, 6HLEVEL .LEVEL, 6HISTRT , ISTRT, 

X 6HIFIN ? IE IN , 6HMAXITR,MAXITR,6HNCSTR ,NC STR , 6HNPR0G ,NPROD, 

X 6IIKPRDG , KPROO, 6HK0DE ,K0DD,6HCS ,CS,6HF!XFD .FIXED, 

X 6HPMAX , PMAX , 6HPMIN ,PMIN, 6HACCL , ACCL, 6HEXT ,EXT) 

DO 550 I = 1, NCSTR 
NPROG! I ) = NPROD! 1 1 
KPROGIII = KPROO! I I 
550 KOOE! 1 1 = KOOO! I ) 

DO 79 I = 1,20 

79 FIXED! I ) = F I XEO! I ) *1 1 . ♦ GR0)**!I-1) 



IF ( NCSTR. EO 

.0) GO TO 

18 





DO 8 I = 1, 

NCSTR 






DO 2 11 = 1 

,NM I S 






IF! NPROG! I) 

.EO.KODEMU 

1)1 

GO 

TO 

3 

2 

CONTINUE 







GO TO 36 






3 

NPROG! I) = 

11 





36 

I F! K PROG! I ) 

•EO.O) GO 

TO 8 





00 1 11 = 1 

,NMI S 






IFIKPROG! I) 

.EO.KODEMU 

1)1 

GO 

TO 

4 

1 

CONTINUE 
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0058 


GO TO 8 


0059 

4 

KPROG(I) = 11 


0060 

8 

CONTINUE 


0061 


IFINSPR.EQ.O) GO TO 18 


0062 


DO 510 I = ltNCSTR 


0063 


DO 502 11 = 1 t NSPR 


0064 


IFINPROGIIl.EQ.KODESPIlllt GO TO 503 


0065 

502 

CONT INUE 


0066 


GO TO 37 


0067 

503 

NPROGI 11=11+ NMIS 


0068 

37 

IF ( K PROG 1 1 1 .EQ.O) GO TO 510 


0069 


DO 501 11 = l.NSPR 


0070 


IF { KPR0G1 I 1 .EQ.KODESP II11J GO TO 504 


0071 

501 

CONTINUE 


0072 


GO TO 510 


00 7 3 

504 

KPROG(I) = 11 + NMIS 


0074 

510 

CONTINUE 


0075 

18 

IFINCS.EO.OI GO TO 20 


0076 


IFINCSTR + NCS.LE.90I GO TO 35 


0077 

1000 

WR ITt 1 6 t 1001 ) 


0078 

1001 

FORMAT (38H0NUM6ER OF CONSTRAINTS HAS EXCEEDED 901 

00 79 


NCS = 90 - NCSTR 


OORO 

35 

00 19 I « l.NCS 


0081 


NCSTR » NCSTR ♦ 1 


008 2 


K(II)EINCSTR) = KODX 1 I 1 


00 R 3 


CSIMCSTR) * CSXI I) 


0084 


NPROGI NCSTR 1 = NPROI I 1 


0085 


KPROGI NCSTR 1 = KPROI 1) 


0086 

19 

CONTINUE 


008 7 

20 

CALL LISTC 


0088 


CALL PLOT 1 (NSCALE.7,5, 15t6) 


0089 


T = 1.0 


0090 


DO 17 1=1,20 


0091 


YEAR! I 1 = TREF + T - 1. 


0092 


Y( 11 = AMODI YEAR! 11 ,100.1 


009 3 

17 

T = T ♦ 1.0 


0094 


WRITE (6,9031 


0095 


NLV = 0 


0096 


00 33 I = 1 , NV 


0097 


DO 31 J = 1,M 


0098 


IF( IVEHlJI.NE.il GO TO 31 


0099 


NLV = NLV ♦ 1 


0100 


KVEH( I 1 a NLV 


0101 


KVEHMNLVI = I 


0102 


GO TO 32 


0103 

31 

CONTINUE 


0104 


GO TO 33 


0105 

32 

1A = VEH( 1,11 


0106 


IB = VEHl 2,11 


0107 


IC > VEHI3.il 


0108 

. 

ID = VEHl 4,1) 


0109 


WRITE (6, 9051 I.STGI I A 1 , STG(IB) , STG( ICl.STGI ID1.RC0STI I) 

0110 

33 

CONTINUE 


0111 


DO 335 I = 1 ,M 


0112 


NX = 1 VEHl 1 1 


0113 

335 

CALL AFRMT INX.VNAMIIII 


0114 


00 39 PROG = 1,N 


0115 

39 

CALL REVLUS 


0116 

22 

DO 23 1=1, N 


0117 


NOP I I 1 = 0 


0118 


RFI I 1 = R( I 1 


0119 


SFI I) = SI I 1 


0120 


cf ( 1 1 = cm 


0121 


SUSTFII) = SUS (I) 


0122 


NOSFI I 1 = NYRSSTI I 1 


0123 


NSSFI I 1 = NSTRSTI I) , 


0124 


NSXFI 1 1 = NSTRFXI 1 1 


0125 


LNDFII) = LNOATE 1 1 1 


0126 

23 

NSRFI I 1 = NSTRRCI I) 


0127 


Dll 24 1 = 1 ,M 


0128 

24 

LVSFI I 1 = LVS I I 1 


0129 


IFIFINISH.GT.il GO TO 21 


0130 


DO 25 I = ISTRT , 1 F IN 


0131 

25 

CNTRVLI I 1 = ASTR 


0132 

C NOP = 1 IF NO CHANGES ARE ALLOWED IN PROGRAM 

VARIABLES 

21 

00 26 I = 1 , NCSTR 

0133 


J = NPROGI 1) 


0134 


IF (KODEI I 1.E0.8) NOPIJI = 1 


0135 

26 

CONTINUE 


0136 

27 

OUT = .FALSE. 


0137 


00 61 PROG « 1,N 


0138 


IFINOPIPROGl.EQ.il GO TO 61 


0139 


CALL CONSTR 


0140 


IF I IERR.NE.O) WRITE (6,91) PROG 


0141 

61 

CONTINUE 


0142 

91 

FORMAT! ' OWARNING - CONSTRAINT VIOLATED IN 

PROGRAM NUMBER 


— 
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0 1 A3 
OlAA 
0145 
01A6 

01A7 

01A8 

01A9 

0150 

0151 

0152 

0153 
015A 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 
017A 

0175 

0176 

0177 

0178 

0179 

0180 


DO 300 ITER = 1 • MAX I TR 
1PRNT * 0 

IF ( 1TER.EQ.MAXITR) 1PRNT » 1 
DO 200 PROG = 1,N 

C 10DU IND I CATE S WHAT TYPE OF CHANGE IS BEING MADE- 1000=0 INITIALLY 

14 SKIP = ( IPRNT.EO.O.ANO.lTER.GT.ll.OR.PROG.NE.l.OR.IODO.NE.O 
IF (SKIP. AND. NOPIPROGI.EO.l. AND. PROG.NE.il GO TO 195 

15 DO 30 J=l,20 
TOTAL(J) = 0. 

30 W(J) = 0. 

IF (SKIP) GO TO 55 
AO XT = 0. 

ST = 0. 

00 50 1=1, N 

C FLAGR = * INDICATES A CHANGE IN DEVELOPMENT DURATION 
FLAGRI I) = BLANK 

C FLAGS = 4 INDICATES A CHANGE IN START DATE OF DEVELOPMENT 
FLAGS! 1 1 = BLANK 

IF (Rln.NE.RFII)) FLAGR! I > ■ ASTR 
IF ( S( 1 1 .NE.SFI 1 ) 1 FLAGS! I I = ASTR 
X = NYRSST ( 1 1 
ST = ST ♦ SUS! 1 1 4 X 

50 XT = XT ♦ C( I I 

WRITE (6,901 TREF, TITLE 
WRITE (6,92) 

DO 53 1=1, N 

IF( l.GT.NMIS+NSPR) GO TO 52 
K = NYR SRC ( I ) 

ifik.eq.o.or.i.gt.nmis) recur ( 1 , 1 ) » o.o 

WRITE ( 6 , 9A I I ,NAMF( I) ,SI I I .FLAGS! 1 1 ,C( I ) ,R( 1) ,FLAGR( I ) ,SUS (I), 

X NSTRST ( I I , NYRSST! 1) , NSTRRC ( I) ,NYRSRC( I ) , ( RECUR ( J , I ) ,J=1,K> 

GO TO 51 

52 N0M = I - NMIS - NSPR 

WRITE (6, 93) I , LABEL (NDM) ,S( I) , FLAGS! I ) ,C( I ),R( I ) .FLAGR! I ) ,SUS( I ) , 
X NSTRST! I ) .NYRSST I I I .NSTRRC! I ) . NYR SRC (II 

51 K = NYRSFX! I I 

IF IK.EO.OI GO TO 53 

WRITE (6,98) NSTRFX! I ) .NYRSFX I 1 1 , IRF I XD! J, I ) , J = 1 , K I 

53 CONTINUE 

WRITE (6,951 XT, ST 

IF ! ITER.NE. 1 ) WRITE (6.902) 

WRITEI6.96) YEAR 
WRITE (6,971 


0181 

0182 

0183 

018A 

0185 

0186 


0187 

0188 

0189 

0190 

0191 

0192 

0193 
019A 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 

0212 

0213 

0214 

0215 

0216 


CALL PLOT 2 (IMAGE, Y( 16) , Y( 1 ) , PMAX, PMIN) 

DO 54 1=1,1000 

54 XLVSUMI 1,1) = 0.0 
C 

55 CALL TCOSTS (BLANK, ASTR) 

C 

IF(lS.GT.20.0R.LS.LE.0> GO TO 78 
XL = 0. 

C IF LEVEL(l) AND (2) ARE INPUT AS INTEGER YEARS, THEN THE PROGRAM 
C TAKES THE AVERAGE SPENDING OVER THE PERIOD ENCOMPASSED BY THESE 
C YEARS AS THE 0ESIR60 BUDGET LEVEL 
DO 76 I=LS,LF 

76 XL = XL*TOTAL( I ) 

XL = XL/FL0AT(LF-LS+1I 
DO 77 1=1,20 

77 LEVEL! I ) = XL 

78 IF (SKIP) GO TO 80 

WRITE (6,99) (W ( I ) , 1=1 , JS ) 

WRITE (6,990) (FIXED! I) ,1=1, JS) 

WRITE (6,991) (TOTAL! 1 ), 1=1 ,JS) 

WRITE (6,993) CNTRVL 

WRITE (6,992) (LEVEL! I ),1=1,JS) 

1FIKSTAT.GT.0I WRITEI6.994) (XMODEM I, I = 1,JS) 

IFIKSTAT.GT.0I WRITEI6.995) (UB(I), I = 1,J$) 

CALL PL0T3I FLET.Y, FIXED, JS) 

IF(KSTAT.GT.O) CALL PL0T3<ULET,Y,UB,JS) 

IF(KSTAT.GT.O) CALL P L0T3( MLET , Y, XMUDE, JS ) 

CALL PLOT 3 (ZERO, Y, LEVEL, IFIN) 

CALL PL0T3 (ASTR, Y, TOTAL, JS) 

80 SOD = 0 

DO 100 I = I STRT , IF IN 
SOD = (TOTAL! I l-LEVELI I ) )442 ♦ SOD 
100 CONTINUE 

RMS = SORT (SOD /FLOAT! IFIN-ISTRT+ll ) 

C SAVEX = RMS VALUE AT BEGINNING OF ITERATION 
IF ( PROG. EO.l. AND. IODO.EO.O) SAVEX = RMS 
IF (SKIP) GO TO 110 

C RMS 1 = VALUE OF RMS USING INPUT DATA 
I F ( ITER. EO.l) RMS I = RMS 
WRITE (6,199) RMS, YEAR(ISTRT) , YEAR! IF|N) 

WRITE (6,2981 ITER 

WRITE (6,3991 

CALL PLOT 4 (13.PRGLV) 
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0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 
02 34 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 


WRITE (6,499) 

IF(M0S.EQ.2.0R.M0S.EQ.3) RETURN 
110 IF (UUT) GO TO 400 

IF ( ITER ,E0. MAX ITR ) GO TO 300 

C SAVER = RMS VALUE AT BEGINNING OF PROGRAM CHANGE CONSIDERATIONS 
1F( 1000. EO. 01 SAVER = RMS 
I F ( RMS. LT . SAVER ) GO TO 190 
C 

CALL SHIFTS 
C 

IFIMYFLAG.EQ.il GO TO 14 
190 1 ODD = 0 

C SAVEP. * VALUE OF RMS AT END OF ITERATION 

IF1RMS.LT. SAVER. AND. PROG. EO.NI SAVER = RMS 
195 IFIPROG.LT. N) GO TO 200 

IF ( SAVEX.NE. SAVER) GO TO 300 
IF 1 IPRNT.NE.O) GO TO 400 
SKIP = .FALSE. 

OUT = .TRUE. 

GO TO 15 
200 CONTINUE 
300 CONTINUE 

WRITE (6,390) 

GO TO 403 

400 WRITE (6,2991 

403 WRITE (6,906) ( YEAR ( 1 ) , I = 1 , JS ) 

WRITE (6,907) 

DO 402 1=1, NLV 
XLVTOT = 0.0 
DO 401 11=1, JS 

401 XLVTOT = XLVTOT + XLVSUMdl.l) 

C XLVSlJMdl.I) = NUMBER OF LAUNCHES IN YEAR II FOR VEH. KVEHIdl 

402 WRITE (6,908) KVEH I ( I I , XLVTOT, ( XLVSUMII I , I ) , I 1 = 1 , JS I 
IFISAVFR.LT.RMS1 - .4) GO TO 404 

WRITE16.9091 

909 FORMAT (46H0INPUT ASSIGNMENT IS OPTIMUM SMOOTHED SOLUTION) 
GO TO 7 

404 NNMI = NMIS ♦ NSPR 
DO 9 I = 1 , NNMI 

lFtABS(Sd) + R(D - SF( 1 1 - RFID). GE.. Oil GO TO 13 

IFINYRSSTd I.NE.NDSFl II I GO TO 13 

IFINLVPI 1 1 .£0.0 1 GO TO 9 

IF ( LNDATEI 1 1 .NE.LNOFI I ) I GO TO 13 


0255 

0256 

0257 
02 58 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 
02 72 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 
0282 
0283 
02 84 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 


IJ = NLVPI I I 

H = LVARY1 I | 

DO 11 II = 1,!J 
X = LVS(H) - LVSF(H) 

IFIABS(Sd) + X - SFl ID.GE..01) GO TD 13 

11 H = H + 1 
9 CONTINUE 

I F ( N.EQ.NNM I ) GO TO 7 
NNMI = NNMI ♦ 1 
00 10 I = NNM I , N 

IFIABS(Sd) + Rd) - SF ( 1 1 - RF(D).GE.Ol) GO TO 13 
IFINYRSSTd). NE.NOSF(d) GO TO 13 
IF(ABS(CF( I I -c ( I ) I .GE..001I GO TO 13 
I F 1 A BS ( SUS < I > - SUSTF( I) I.GE..001) GO TO 13 
10 CONTINUE 
7 FINISH = MITR + 1 
GO TO 12 

13 FINISH = FINISH + 1 

12 NCSTR = NCSTR - NCS 
RETURN 

90 FORMAT ( 1H1, 15 X, 14H REFERENCE YE AR, F7.0, 5X, 10A4) 

92 FORMAT I78H0PN NAME START DEVL YRS SUST SS SO RS RD R 
XECURRING OR FIXEO ITEMS /1H ) 

93 FORMAT (!3,1X,4HDEV , I 2 ,F6.0, IX, A1 , F7.0, F4.0, IX , A1 , F5.0 , 4 14) 

94 FORMAT ( 13, 1X,A6,F6.0,1X,A1,F7.0,F4.0,1X,A1,F5.0,4I4,12F6.0) 

95 FORMAT (20X.4H ,8X,4H /ZX , 5HT0TAL, 12X, F6 . 0, F 1 1 .0 ) 

96 FORMAT ( 1H1,30X,47HT0TAL PROGRAM COSTS AND LAUNCH VEHICLE SCHEDULE 

4 / 6H0YEAR , 4X , 20F6 • 0 1 

97 FOPMAT ( 8H0PR0GRAM I 

98 F0RMAT(44X,2!4,12F6.0) 

99 FORMAT (6H0SUM ,4X,20F6.0) 

107 FOkMAT ( 44X , 2 14 , 12F6 . 1 I 

199 FORMAT I6H0RMS =,F8.0,5X, 18HSM00THING I NTERVAL , F6.0 , 5H THRU.F6.0) 

298 FORMAT ( 10H0 I TERAT ION, 13) 

299 FORMAT (11X.11H FINAL CASE) 

390 FORMAT (UX.16H MAXITR EXCEEDED ) 

399 FORMAT (1H1) 

499 FORMAT (1N0,50X,4HYEAR1 

902 FORMAT (1H0,40X,34H* INDICATES CHANGE FROM INPUT DATA) 

903 FORMAT ( 1M1,30X,19HRECURRING COST DATA /1H0,8X,3HKEY, 10X, 

* 4HNAME , 24X ,9HUNI T COST /1H ) 

905 FORMAT ( 10X, 12, 10X.4A4 , 10X ,F1 0.2 ) 

906 FORMAT ( 1H1 , 30X , 35HLAUNCH VEHICLE REQUIREMENTS BY YEAR / 
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* 6H0YEAR ,6X,20F6.0> 

0295 907 FORMAT < 11H0LV TOTAL) 

0296 908 FORMAT ( 1 X , I 2 , F 8 .2 , 20F6 . 1 ) 

0297 990 FORMAT I 6H F I XED , AX , 20F6 .0 ) 

0298 991 FORMAT ( 6H TOTAL , AX , 2 0F6 . 0) 

0299 992 FORMAT ( 6H LEVEL , AX , 20F6 .0 ) 

0300 993 FURMAT 1 8X , 201 5X , A1 ) ) 

0301 99A FORMAT 1 6H0 MODE , AX , 20F6 . 0) 

0302 995 FORMAT! 12H 50 PER CENT/8H COMF1 D. , 2X.20F6.0) 

0303 END 


TOTAL MEMORY REQUIREMENTS 0022AC BYTES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LI ST ,NC AL ,NAP 

VARIABLE OPTIONS USED - S I ZE= (1 26976,2 A576) DEFAULT OPTION(S) USED 

IEWOOOO NAME MOX02SS ( R I 

IEH0A61 IBCOM= 

IEW0A61 INPUT 
IEW0A61 FRXP1= 

IEW0A61 L1STC 
IEW0A61 PLOT l 
IER0A61 AFRMT 
I EW0A6 1 REVLUS 
1 1 VI 0 A 6 1 CCJNSTR 
IEH0A61 PLOT 2 
IER0A61 TCOSTS 
IEW0A61 PL0T3 
IEW0A61 PLOTA 
IEW0A61 SHIFTS 
IEW0A61 SORT 


MODULE MAP 


CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION 

SMOOTH 00 22AC 

SAVFR 22HO FCO 

SAVE I 3270 FCA 

SAV2 A238 FEO 

SA V 3 5218 980 

SAVALL 5B98 3A1C 

VARNCE 95B8 ADC 

SCRACH A098 6A60 


ENTRY AUURESS 00 

TOTAL LENGTH 10AF8 

*«»«M0XO2SS non REPLACED IN DATA SET 
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0001 


0002 

0003 


OOOA 


0005 


0006 

0007 


0008 


0009 

0010 


0011 

0012 
0013 
001 A 

0015 

0016 

0017 

0018 

0019 

0020 
0021 

0022 
0023 
002 A 
0025 


0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
003A 

0035 

0036 

0037 

0038 

0039 
OQAO 
00 A 1 
00A2 
OOA3 
OOAA 
00 A 5 
00A6 
OOA7 
OOAB 
00A9 

0050 

0051 

0052 

0053 
005A 

0055 

0056 

0057 

0058 

0059 

0060 


SURP.OUT !N£ STGNMI 

C OETERM I NE NUMBER OF COMPONENTS ACTUALLY USED ANO ASSOCIATED 
C RECURRING COSTS 
C 

REAL NPERPD 

INTEGERS NU,NBY,MODE t NOB,FINlSH,NSTG,NFMLi NFMU, RODS, MAS, LABS, 

1 LABF,LABI,NPSTG,NPAO,NPFAM,NF$,NPINTL ,NP 1 NTU, MAPS iMAPF ,MAP I »VEH, 

2 NMULT ,NONREC*NYD, I St MAT , LYR t LE T T t L YD, M I N , KOUT ,LTR»NINTYR,NTGYTR, 

3 MAF , M A I C 

COMM ON/ SA VS AR /COR , PO J ( 3 ) , SR J t 3 , 3 ) , NU( AO) , NBY I AO ) ,NOBt AO) , RINT I AO ) » 

1 PLCINTI AO) ,XLT( AO) , PLCTC AO) ,UPP( AO) , TAT (AO) , T AMT ( 50) , SR ( AO ,3 ) , 

2 MUOE (A0,3) ,PLC(A0,3) 

COMMON/ SAVE 1/ FINISH, NSTGtNC I, ILY,LABF( 30 ) , LA BS ( AO I , L AB I I AO ) , 

1 NFMLIAO) .NFMUIAO) ,KOOS(AOI , S T SI A 1 ) , STGI AO ) , VLR I 50 > , WPR I 50) , 

2 RPLMI 50) ,MAS(A0,3) , RXUI12.50) 

COMMON/SAV3/GRO, GUESS, LP,NS0L,MS0L.NP,M0S,NMIS,NSPR,NPERPD(30) , 

1 PAD! 30) ,LTR( 50) ,PLR(50) ,ROTST( 56, A) , ALP 1 1 A, 60) 

COMMON/SAVA/ MAF (30,3), MAIC(A0,3), 

* NPAOI 2,60) ,NPFAM( 30, 5 ) , NP 1 NTL ( 30 , 5 ) , NP I NTU( 30 ,5 ) , 

1 NFS! AO, A) , NPSTG ( 30,10) ,MAPS( 30, 10) , MAP FI 30,10) ,MAPI( 30,10), 

2 PFAMDI 30,5,2 I ,PF AMS (30,5,2) , P I NT S I 30, 5, 2 ) , P STGOI 30 , 10 , 2 ) , 

^COMMON/ SAVA LL /LC K*SLO,NM, NE XO, NV , NUMD, MYRS,LZOPT( 8) ,NYD( A6 ) , MAT ( A6 
1) ,SUST(A6),DS(A6) ,LYD(A6),YD( A6),IS( 102) , LYR ( 25 2 ) , LETT ( 250) , 

2 M INI 250) ,YRLM< 250) , V£H( A, 60) ,N()NP.ECI 120,20) , NMULT ( 60,50) 

Cf IMMON/T EMP/ VNM ( 2 ,250),IFLAG,KI,NEXT,L()UT,SAVS(A0) ,KUUT ( AO) , 

1 NINTYR ( AO, 201 .NTGYTRI AO, 20,2) ,RECURI 60,20,2 ) 

COMMUN/SCRACH/ 1 1 ,NUS ( AO) ,MSAVE ( AO) , I SAVE ( AO) , KLUE ( AO ) , 

ISTGYHW(AO*20),R1NTMX(AO,20), STGMAX1 AO, 20,2) ,STGYTR(A0,20,2), 

2 RINTYRI AO, 20) ,DUMI 10A7) 


IF ( IFLAG.GE.l) GO TO 621 

FIND MAX NUM OF EACH STAGE ANO INTEGRATION POSSIBLE 

DO 661 I = l.NSTG 

NUS( I ) = 0 

DO 661 J-l ,MYRS 

STGYTR ( I , J, 1 ) = 0,0 

661 STGYTRl I,J,2) .= 0.0 
lF(NCl.EO.O) GO TO 665 
DO 662 I * 1.NC1 

DO 662 J = l.MYRS 

662 RINTYRI I ,J) = 0.0 

665 DO 6500 1 = l.NM 


IFI YRLMI I ) .LT..001) GO TO 6500 
J = LYRII) 

JX = LETT! I ) 

K = LTR(JX) 

C MSAVE L ISAVE INDICATE IF THAT STAGE OR INTEGRATION HAS ALREADY BEEN 
C COUNTED FOR MISSION NM 

DO 9003 IZ * 1 , AO 
MSAVE ( I Z I = 0 
9003 ISAVE < I Z > = 0 

DO 650 11=1 ,NV 

IF ( ITEM! VNM( 1, 1 ) , 1 1, l l.EO.O) GO TO 650 
X = NMULT! 11, JX) 

DO 6A9 MS = 1 , A 
IA = VEH(MS.Il) 

IFI IA.EQ.O) GO TO 650 

IFIMSAVEI IA1.E0.1) GO TO 6AA 

STGYTRl IA,J,K) » YRLMI I I *X ♦ STGYTRl IA, J,K) 

MSAVE I I A ) = l 

6AA IFI NCI. HO. 0) GO TO 6A9 
IFIMS.EO.A) GO TO 650 
IFIVEHIMS+l.IlI.EO.O) GO TO 650 
LI = VEHIMS+1 ,11) 

00 6A5 Ml = 1 ,NC I 

IFI ISAVEIMD.EO.il GO TO 6A5 

00 6A6 KY = 1 , A 

IFINFMLIMI I .NE.NFSI IA.KY) I GO TO 6A6 
DO 6A7 KZ = 1 , A 

IFINFMUIM1 ) .EO.NFSILl.KZI ) GO TO 6AB 
6A7 CONTINUE 
6A6 CONTINUE 
GO TO 6A5 

6A8 RINTYRIMI ,J) = RINTYRIMI , J) ♦ YRLM(1)*X 
ISAVE I MI ) = 1 
6A5 CONTINUE 
6A9 CONTINUE 
650 CONTINUE 
6500 CONTINUE 

00 668 J = l.MYRS 
DO 668 I = l.NSTG 

668 STGYHWII.J) = STGYTRl I ,J,l) ♦ STGYTRl I , J , 2 ) 

GO TO 673 
C 

C DETERMINE NUMBER OF EACH STAGE AND INTEGRATION USEO IN LAST ITERATION BY YEAR 
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0061 

0062 

0063 

0064 
0066 
0066 

0067 

0068 

0069 

0070 
00 71 

0072 

0073 

0074 
00 7 6 

0076 

0077 
00 78 
0079 
0000 
008 i 
0082 

0083 

0084 
00 06 
0086 
0087 
00 88 

0089 

0090 

0091 

0092 
00 9 3 

0094 

0095 

0096 

0097 
0090 

0099 

0100 
0101 
0102 

0103 


0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 


0136 


C FOR FUTURE PRINT OUT 

621 DO 623 K* 1 , 2 

DO 623 J=1,MYRS 
DO 623 I =1 f NSTG 
STGMAXI I * J»K> * NTGYTRI 1 1 J,K> 

STGMAXI I » J *K ) * STGMAXII,J,K)/10.0 

623 STGYTRf I * J » K ) * 0,0 
IFINCI.EO.O) GO TO 9000 

00 626 J= 1 * MYR S 
DO 624 1*1, NCI 

RINTMXl 1 , J) = NINTYRI I,J) 

R1NTMXI I ,J) = RINTMXl I ,J)/10.0 

624 RINTYRI 1 , J) = 0,0 

9000 DO 622 J=1 ,NM 

IF I YKLM( J ) . LT« • 001 ) GO TO 622 

1 = M1NIJ) 

K = LYR(J) 

JX * LETTIJ) 

ITR = LTRIJX) 

X = NMIILTI I ,JX) 

DO 625 MS = 1,4 
L * VtHI MS, I > 

IF (L.EO.O) GO TO 622 

STGYTRI L,K, ITR) * STGYTRC L ,K, ITR ) ♦ YRLM|J)*X 
IF INC I • FO • 0 ) GO TO 625 
IF (MS.FQ.4) GO TO 622 
IF (VEHIMS+1,1 ) • E Q • 0 ) GO TO 622 
LI = VEHIMS+l, I ) 

DO 626 MI = 1, NCI 
00 627 K Y B 1 ,4 

IEINFMLIMI ).NE.NFSIL,KY) > GO TO 627 

00 628 KZ = 1,4 

IF INF MU (MI ).EQ.NFS(L1,KZ) I GO TO 629 

628 CONTINUE 
627 CONTINUE 

GO TO 626 

629 RINTYR ( MI ,K ) * R INTYR (MI ,K) ♦ YRLM|J>*X 
626 CONTINUE 

625 CONTINUE 

622 CONTINUE 
IFfNCI.EO.O) GO TO 9001 
DO 691 1*1, NCI 

DO 691 J* 1 ,MYR$ 

691 IF I R INTYR I I»J).LT.«001) RINTYR(I,J) * RINTMX(I,J) 

C CHECK NUMBER OF LAUNCHES CALCULATED VS. NUMBER OF LAUNCHES USED IN LAST 
C ITERATION 

9001 IF(LCK.EO.O.OR.MOS.EQ.l.OR.MOS.E0.3> GO TO 4100 
DO 676 K * 1,2 

DO 676 J * 1,MYRS 
DO 676 I * 1 ,NSTG 

IF( ABSI STGYTRI I , J ,K) - STGMAXI I , J,KI ) . GT .0.001 . AND. STGYTR I I , J ,K ) • 
1GT.0.001.0R.I IFLAG.LE.l.ANO.NUI D.LT.O) ) GO TO 677 

676 CONTINUE 

4100 WR I Tt (6, 4101) 

4101 FORMAT (1H0,4X, 40HTHE OPTIMUM SOLUTION HAS BEEN DETERMINED) 

C 

670 CALL VEHRC 
C 

1 FLAG * 0 

IF(LOUT.EO.O) RETURN 
DO 112 I = l.NUMD 
IFIKOUTI D.EO.O) GO TO 112 
LT = KOUTI 1 ) 

SUSTII) = SAVSILT) 

112 CONTINUE 
RETURN 
C 

677 IE| IFLAG.LE.3) GO TO 679 
WR ITE I 6,8005 ) 

8005 FORMAT 1 49H0MAXIMUM NUMBER OF ASSIGNMENT ITERATIONS EXCEEDED) 

GO TO 670 

C DETERMINE HARDWARE COSTS BY YEAR BASED ON LAST ITERATION 

679 DO 8013 I = 1,NSTG 
KLUEII) = 0 
DO 8014 J * 1 ,MYRS 

IFISTGYTRl I, J,1).GT. 0.01. OR. STGYTRC | , J, 2) . GT. .01 1 KLUEII) *= 1 
8014 STGYHWI f , J) - STGYTRI 1 ,J,1 ) ♦ STGYTR I I ,J , 2 1 
IFIKLUEI I ).EQ.l) GO TO 8013 
DO 8016 J * 1 ,MYRS 
STGYTRI I, J,l) « STGMAXI I, J,l) 

STGYTRI I, J, 2) * STGMAXI I , J ,2) 

8016 STGYHWI I, J) » STGYTRI I, J, 1) ♦ STGYTRI I , J, 2 ) 

8013 CONTINUE 
C 

C ADO INITIAL REUSABLE PURCHASE PRICE TO OEV. COST DS 
672 IFI IFLAG.GT.l.OR.FINI SH.GT.l) GO TO 673 
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0137 

0130 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 


0162 

0163 

0164 
0160 
0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 I 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 


0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 


NX = NSTG ♦ 1 

00 674 II = 1 .NX 

REAOI 5,50001 J.NX2, X3,X4,X5 

IFIJ. EQ.O) GO TO 6735 
IFIIl.EO.lt WRITEI6.5003) 

DO 675 I = l.NSTG 

IF< J.EQ.KODSI I ) 1 GO TO 6755 
675 CONTINUE 

WRITEI6.5001) II 

1 FLAG =100 
GO TO 674 

6755 NOB ( I I = NX2 
. XLTI I ) = X3 
TATI I 1 = X4 

IFIX5.GT..0011 PLCT(l) = ALOGI X5 1 /ALOGI 2. 1 
IFIX5.LE..001 1 PLCTII1 = 0.0 

WRITE (6, 5002) J.I.NUI 1 1 , UPP ( 1 1 ,NOBI 1 1 , XLTI I 1, TATI I) ,PLCTI I) 

674 CONTINUE 

6735 IFI IFLAG.E0.100) RETURN 
673 K = 0 

00 710 I = l.NSTG 

IFI (NUl I 1.EO.OI.OR.I 1FLAG.GE.1.AND.NUI II .GE.O) 1 GO TO 710 
IFI IFLAG.EO.O) GO TO 709 
NIJSI 1 I = NUl I I 
II = I 

C ITERATES ON INITIAL QUANTITY TO BE PURCHASED 

C 

CALL REUSE 
C 

709 NI = MAS! I. II 

IF I NUl I I.LT.O) LCK = 1 ' 

X = NUl I I 

IFIX.LT.O! X « -X 
Y = NUS I 1 I 

OSIN! I = DSINII ♦ I X+ Yl * UPPII1 

IFIK. EO.O) WRITE 16,2111 
K = 1 

WRITE! 6,208) NI. OS INI I ,STS( Il.STGI 1 1 ,NYD( NI 1 ,LYDI NI 1 
WRITE (6,209) X 

710 CONTINUE 

C MAKE ADJUSTMENT FOR BATCHING OVER YEARS 
00 663 I * l.NSTG 
IF (NBYI II.EQ.l) GO TO 663 
IA = 2 
IB = NBYI I 1 
IC = 1 

666 00 664 J= IA,IB 

IF IJ.GT.MYRS) GO TO 700 
664 STGYHW I I , IC I = STGYHWII.IC) + STGYHWII.J) 

700 00 667 J = IA,IB 

IF (J.GT.MYRS) GO TO 663 

667 STGYHWII.J) = STGYHWII.IC) 

IA = IA ♦ NBYI I ) 

IB = IB + NBYI I) 

IC = IC + NBYI 1 1 
. GO TO 666 
663 CONTINUE 

IFI IFLAG.EO.O) GO TO 9006 
00 9005 I = l.NSTG 
IFIKLUEf II.EQ.O) GO TO 9005 
00 9002 J = l.MYRS 

IFI STGYTRI I , J, 1) .LT..01 ) STGYTRI 1 , J, 1) » STGMAXI I , J , 1 1 
IF I STGYTRI I, J*2) .LT..01) STGYTR I I , J , 2 ) = STGMAXI I ,J, 2) 

IFI STGYHW I I.J1.LT..01) STGYHWII.J) = STGYTRI I , J , 1 l + STGYTR 1 1 , J ,2 ) 
9002 CONTINUE 

9005 CONTINUE 

9006 DO 9007 K = 1 ,2 

DO 9007 J = l.MYRS 

DO 9007 I = l.NSTG 

9007 NTGYTRI t.J.Kl = STGYTR 1 1 , J , K ) * 1 0.0 
1FINCI.E0.01 GO TO 9009 7 

DO 9008 J = l.MYRS 
00 9008 I = l.ljlCI 

9008 NINTYRI I , J ) = R1NTYRI I, J)*10.0 
C 

C DETERMINE VEHICLE RECURRING COSTS BY YEAR AND LAUNCH SITE 

9009 DO 632 1=1, NV 
00 635 J= 1 , MYRS 
RECUR I I , J , 1 ) = 0.0 

635 RECUR! 1 , J , 2 ) = 0.0 
DO 633 MS = 1,4 
K = VEH(MS.I) 

IF I K.EQ.O) GO TO 632 
9004 00 634 J= l.MYRS 

IFISTGYHWIK.JI.LT. 0.001) GO TO 634 
IF I MODE (K.l).NE.O) GO TO 8015 
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0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 


0258 

0259 

0260 
0261 

0262 


HDWR = SRIK,1I*STGYHWIK,J1**PLCIK,1I 
GO TO 8010 
8015 LX = MOOE ( K 1 1 I 

IFISTGYHWIK.JI.LE.POJILXI I HDWR » SRJILX.li/STGYHWIK.Jl 

IF ( STGYHW I K» J I .GT.PGJILXI I HDWR = SR J( LX, 2 ) + SRJ I LX, 3 ) /STGYHWIK , J 1 

8010 00 692 L = 1.2 
1FISTGYTRIK.J.LI.LT..001I GO TO 692 
M = L ♦ 1 

lF(MOOEIK.M).NE.O) GO TO 8011 

RECUR I I . J »L ) =RECUR( I , J ,L > +HDWR + SR t K.M ) «S TGYTRI K , J , L ) ** PLC I K ,H ) 

GO TO 692 

8011 LX = MODE I K.M I 

IF I STGYTR I K. J , L I . LE . POJI LX 1 1 RECURII.J ,L) = RECUR! I .J .LI 
l + SRJILX.il/STGYTRIK, J ,LI ♦ HDWR 
IF I STGYTR I K, J , L I . GT .POJ I LX I 1 RECURII.J ,L! = RECURII.J ,LI + 

1 SRJILX.2I ♦ SR J I LX ,3 I /STGYTR I X, J ,L> ♦ HOWR 

692 CONTINUE 
634 CONTINUE 

lF(NCI.EQ.O) GO TO 633 

IF (MS.E0.41 GO TO 632 

IF I VEH< MS + 1 , 1 I .EO.OI GO TO 632 

K 1 = VEHIMS+1 , I I 

00 636 L=1 ,NC1 

00 637 KY=1,4 

IF INFMU LI .NE.NFSIK.KYI 1 GO TO 637 
DO 638 KZ * 1,4 

IF (NFMUILI.E0.NFSIK1.KZII GO TO 639 

638 CONTINUE 
637 CONTINUE 

GO TO 636 

639 00 640 J = l.MYRS 
lFIRINTYRIL.Jl.LT. .00011 GO TO 640 
HOWR * RINT!LI*RINTYR(L,JI**PLCINTIL) 

RECURII.J, II « RECURII.J, II ♦ HDWR 
RECURII.J, 21 • RECURII.J. 21 ♦ HOWR 

640 CONTINUE 
636 CONTINUE 
633 CONTINUE 
632 CONTINUE 

99 RETURN 

208 FORMAT I 14 ,6X , 2F 12. 2 , 5X , A4» 1 X, 14HSTAGE HARDWARE, 29X, 13, 9X, 131 

209 FORMAT I 6X , 27HNUMBER OF UNITS PURCHASED =, F5.ll 

211 FORMAT I33H1CHANGED QUANTITIES BRANCHED UPON/ 1H0, 6HNUMBER , 5X, 


1 1 1 HDE VELOPMENT , 2X, 10HSUSTAINING, 50X, 10HYEAR AVAIL, 2X, 

2 9HLAST YEAR// 1 

5000 FORMAT I I2.2X.I2, 2F6. l,F6. 31 

5001 FORMAT I 45H0K0DE NUMBER INCORRECT ON REUSABLE STAGE CARD, 161 

5002 FORMAT 114.16, 18, F10.1, 16, Fll.O, F10.0, F8.2I 

5003 FORMAT (22H1 REUSABLE STAGE DATA//5H KODE»3X,5HORDER»3X,5HUNITS» 

2 3X , 5HPR ICE »3X .4HTVPE ,3X, 8HLI FET 1ME.3X.7HTA TIME ,3X , 2HLC 1 

END 


TOTAL MEMORY REQUIREMENTS 002314 BYTES 





DEFAULT OPTIONtS) USED 


F88-LEVEL LINKAGE EOITOR OPTIONS SPECIFIED LIST ,NCAL .MAP 
VARIABLE OPTIONS USEO - SIZ£=< 126976,24576) 


IEWOOOO 

IEH0A61 

1EW0A61 

1EW0A61 

IEH0A61 

IEW0A61 

IEM0A61 

NAME M0X02SMI R ) 

ITEM 
I BCOM = 

VEHRC 

REUSE 

FRXPR= 

ALOG 











MODULE 

MAP 




CONTROL SECTION 


ENTRY 






NAME 

URIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

STGNMI 

SAVSAR 

SAVE1 

SAV3 

S A V4 
SAVALl 
TEMP 
SCR ACH 

00 
2318 
2078 
3040 
46C0 
7848 
B268 
E 378 

2314 
A5C 
FC4 
980 
3188 
3 A 1C 
4110 
6 A60 







ENTRY ADDRESS 
TOTAL LENGTH 

00 

150D8 








«*«»MnXOZSM NOW REPLACED IN DATA SET 


FORTRAN IV G LEVEL It MOO A TCOSTS 


DATE = 71312 16/52/59 


0001 


0002 
0003 
000 A 

0005 

0006 


0007 

0008 

0009 


0010 


0011 

0012 


0013 
00 1 A 


c 

c 


SUBROUTINE TCOSTS IBLANK.ASTRI 
CALCULATE TOTAL COSTS 


DOUBLE PRECISION NAME 
LOGICAL SKIP, EXT, ACCL 
REAL NPERPO 

INTEGER*2 LTRtVOPL ,NSVR ,NSFX ,NRFX,NYRSST,NSTRFX ,N PROG,KPROG ,KODE , 

l nyrsfx,kodem,kodesp,veh,nmult,nonrec,nyd, is,mat,lyr,lett .lyd.min 

2, FINISH, NSTG.NFML.NFMU.KOOS, MAS, LABS, LABF, LABI , 

6 K.VEHI .LABEL, L VARY, L VD , I VEH , LVS, L VSF , NOP, NSSF.NSRF ,NSXF,NDSF 
COMMON/ SAVRT/RVAR I 20,501 

COMMON/ VARNCE/KSTAT , V AR I ( AO ) ,VARF( 50) ,VARM( 56 ) , FMVAR I 2 , 30 ) , 

1 F I VAR I 3 ,A0) ,PLVAR ( 3, 56 ) ,SVAR I 5, AO) 

COMMON/SAVE 1/ FINI SH.NSTG.NCI , ILY.LABFI 301 ,LABS( AO) , LABI (AO), 

1 NFML ( AO) ,NFMU< AO) , KOOSI AO ) , ST S ( A 1 ) , STGI AO ) , VLR I 50 ) , WPR( 50) , 

2 RPLM( 50) ,MAS( AO, 3 I , RXOUZ.50) 

COMMUN/SAVALL/LCK,SLO,NM,NEXD,NV ,NUMD,MYRS , L ZOPT t 8) ,NY0(A6) ,MAT(A6 
1),SUSTIA6),DS(A6I,LY0(A6) ,YD( A6 ) , I SI 102),LYR( 2521 .LETT! 250 ) , 

2 MINI 250) ,YRLM( 250) »VEH( A,60) .NONRECI 120,20) ,NMULT (60,50) 
COMMON/SAVER/ RFIXOI 12, 8A) 

C0MMUM/SAV2/EXT,ACCL,KNSTG,KNFAM,KNCI,KNP,KNMIS,JFLAG,TREF,NCSTR, 

1 PMAX ,PM1N, ISTRT , IF IN.MAXITR.MI TR,KODESP( 6) , T I TLE ( 10 ) , LEVEL ( 20 ) , 

2 CNTP.VU 20) ,FIXE0(20) ,KODEM(50) ,NSYR ( 50 ) ,NSFX l 50 ) , NAME ( 56) , 

3 YOPL ( 56 ) ,NRFX ( 501 ,NYR SST( 8A) ,NSTRF X (8A),NYRSFX(8A),SUSI8A),C(8A) 
A, R(8A), S(8A) ,CS(90) .NPROGI 90) , KPROGI 9 0 ) , K0DEI90) 

C0MMUN/SAV3/GR0, GUESS ,LP ,NSOL ,MSOL ,NP,MOS, NMI S, NS PR ,NPERPD ( 30 ) , 

1 PAOt30l,LTR(50l,PLR(50),RDIST(56,A),ALPI(A,60) 

COMMON / SCR ACH/M, N, NCS , PROG, I ODD, I ERR , SK I P, MYF LAG, JS , NSCALE (5 I , 

1 MSI ( 10) .TOTAL! 20) ,W( 20 ) , 0 I 20 ) , XOUT I 20) , VOUT 120), RRRI 20) .YEAR (20) 

2, Y(20),KVEHII50),LABEL(50),LVARY(70),LVD(70),IVEH(70),LVS(70), 

3 LVSFI 80) , VNAMI 80) ,HOP( 86) ,RF (86) ,CF( 86) ,SF|86) ,FLAGR( 86) , 

A FLAGS! 86 I »NSSF( 86) , NSRFI 86) »NSXF ( B6) , NDSFI 86) , SUSTF ( 86) ,NLVP (86) 

5, N5TPRC(86),NYRSRC(86I,LN0F(B6>,NSTRST(B6>,LNDATE(86),NPR0(90>, 

6 KPROI90I ,CSX(90),LZ(A6) ,RCOST ( 60), KVEHI 60) , IMAGE ( 830 ) , 

7 XSCHI 10,70) .PLSCHI 10,70) ,XLVSUM( 20, 50) .RECUR ( 20,50) ,DUM( 3A0) , 

8 VTCI20I , XMODE ( 20) ,U8( 20), DUMMY! 1) 


0015 

0016 

0017 

0018 
0019 


DO 55 I * 1,20 
55 VTCI I ) ' 0.0 
JS= 0 

DO 70 l»l,N 
FLAG => O. 
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c 



FORTRAN IV G LEVEL 1. MOO 4 


TCOSTS 


DATE => 71312 


16/52/59 


0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 
00 29 

0030 

0031 

0032 

0033 

0034 

0035 

0036 
00 37 
0038 
00 39 
0040 

004 1 

0042 

0043 

0044 

004 5 

0046 

0047 
004 8 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 


T = 1.0 

AYRS ■ R ( L ) + 1.0 
IFIL.LE.NMIS ♦ NSPRI GO TO 30 
NOUM = L - NM1S - NSPR 
LX = LABEL ( NOUM) 

JX = MAT ( LX ) 

1F( JX.GT. 10001 JX = JX - 2000 

30 00 60 K=1.20 
F = O. 

IT = T - SI L) ♦ TREF 
. X = IT - SIL) + TREFI / AYRS 

C X.LE.O PROGRAM OEV. HASN'T STARTED YET - X.GE.l PROGRAM DEV. IS OVER 
IF (X.LE.O. I GO TO 59 
IF (X.GE.l. I GO TO 56 
C BETA DISTRIBUTION FOR C(L) 

F = ( (X*( 1. -XI 1**21 * 30. * CIL) / AYRS 

IFIKSTAT. EO.O. OR. SKIP. OR. F.LT.. 00011 GO TO 56 

IFIL.LE.NMIS + NSPRI GO TO 31 

1FIJX.LT. -200) GO TO 56 

IFIJX.LT. -100) GO TO 41 

IFIJX.LT. 0) GO TO 42 

A = F*FXP< 1.5«SVAR(4,Jxn/( 1.0 + EXP I 1 .5*SVAR( 4 , JX 1 > > 
IF(SVARI4,JX).GT..001) VTCIK) = VTCIKI + A*A*IEXP(SVAR(4, JX) ) - 
1 1.0) 

GO TO 56 

41 KX = -JX - 100 

A = F*EXP(1.5*FIVAR(2,KX)>/I 1.0 ♦ E XP I 1 . 5*F I VARI 2 , KX ) ) > 
IF(FIVAR(2.KX).GT..00l) VTCIK) = VTCIK) + 

1 A«A*lbXPIFIVARI2iKX )) - 1.0) 

GO TO 56 

42 KX = - JX 

A ■= F*EXP(1.5*FMVARI1,KX))/I1.0 ♦ EXPI 1.5*FMVARI 1,KX>> ) 

1FIFMVARI1, KX).GT..001) VTCIK) • VTCIK) + A*A* 

1 (EXPIFMVARI 1, KX)) - 1.0) 

GO TU 56 

31 IF(PLVAR(2*L).LT.. 0001 ) GO TO 56 

A * F»EXP(1.5* PL VAR I 2.L ) )/( 1.0 ♦ EXPI 1.5*PLVARI2,L) ) ) 

VTCIK) = VTCIK) + A*A* IEXPIPLVARI 2.L ) ) - 1.0) 

56 IF (NYRSSTILI.EO.O) GO TO 57 
I = IT - NSTRSTILI 

IFI I .LT.O.OR.I .GE.NYRSSTILI ) GOTO 57 
F = F ♦ SUSIL) 

IFIKSTAT. EO.O.OR. SKIP.OR.SUSID.LT. .0001) GO TO 57 


0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 
00 77 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 


IFIL.LE.NMIS + NSPRI GO TO 32 
IFI JX.LT. -2001 GO TO 57 
IFI JX.LT.-100) GO TO 43 
IFIJX.LT. 0) GO TO 44 

A = SUSIL)*EXPI1.5»SVARI5,JX))/I1.0 ♦ EXPI 1.5*SVAR(5, JX) ) ) 
IF(SVAR(5,JXI.GT..001I VTCIK) = VTCIK) + A*A» I EXPI SVARI 5. JX ) )-l . ) 
GO TO 57 

43 KX = -JX -100 

A = SUSIL)*EXP(1.5*FIVARI3,KX))/(1.0 + EXPI 1.5*FIVARI 3.KX) ) ) 

IFIFIVARI3, KX I.GT..001) VTCIK) = VTCIK) ♦ 

1 A*A+IEXP(FIVAR(3,KX)I - 1.0) 

GO TO 57 

44 KX « -JX 

A = SUSILI*EXP(1.5*FMVARI2,KX))/(1.0 + EXPI 1 .5*FMVARI 2 ,KX) ) ) 

IFI FMVARI 2. KX).GT..001) VTCIK) = VTCIK) + 

1 A+A*(EXP(FMVAR(2, KX ) ) - 1.0) 

GO TU 57 

32 IFIPLVAR(3,LI .LT..0001) GO TO 57 

A = SUS(L)*EXP( 1.5*PLVAR13,L II/I1.0+ EXPI 1.5*PLVAR( 3.L) ) ) 

VTCIK) = VTCIK) + A»A*IEXP(PLVAR(3,L> ) - 1.0) 

57 IF INYRSRCILI.EO.O) GO TO 58 
1 = IT - NSTRRCILI 

IFI I. LT.O.OR.I .GE.NYRSRCIL) ) GO TO 58 
F = F + RECUR 1 1+1. LI 

IFIKSTAT. EO.O. OR. SKIP.OR. RECURI I + l.Ll.LT.. 01) GO TO 58 

A = RECURI I+l,LI*EXP(l ,5*RVARI 1+ 1 , L ) ) / 1 1 . 0+F. XP I 1 . 5*RVARI I + l.LI) ) 
VTCIKI = VTCIKI ♦ A*A*IEXP(RVAR(I+1,L>> - 1.0) 

58 IF (NYRSFXIL) .EO.O) GO TO 59 
I = IT— NSTRFXILI 

IFII.LT. 0. OR. l.GE. NYRSFXIL)) GO TO 59 
F = F + RFIXDI I+l.L) 

IFIKSTAT. EO.O. OR. SKIP. OR. RFIXDI I+l.Ll.LT.. 0001) GO TO 59 

IFIL.LE.NMIS ♦ NSPRI GO TO 39 

IFI JX.LT.-200) GO TO 59 

IFI JX.LT.-100) LXX = LAB II -JX - 1001 

IFIJX.LT .0. AND. JX .GE .-100) LXX » LABFI-JX) 

IFIJX.GT.O) LXX = LABSIJX) 

A = RF1X0(I + 1.L)*EXPI1.5*VARF(LXX))/(1.0 ♦ EXPI 1 • 5*VARF I L XX ) ) ) 

IFI VARFILXXI.GT..001) VTCIK) » VTCIK) ♦ A*A* I EXPI VARF | L XX I ) -1.0) 
GO TO 59 

39 A = RFIXDI I+1,L)*EXPI 1.5*VARM(L))/I 1.0 + EXPI 1 ,5*VARM I L ) ) ) 

IFI VARMILI.GT..001) VTCIK) • VTCIK) ♦ A*A* I EXPI VARMI L I ) - 1.0) 

59 DIK) = F*IGRO + 1 . I ** I K— 1 ) 
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0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 . 

0107 • 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 
0123 
01 24 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 
0151. 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 


C 


WIK) IS TOTAL cost in year k 
WIK) = WIKI ♦ OIK) 

IF (OIKI. EO. 0.. AND. FLAG. EO. 1.1 GO TO 65 
IF (OIK). NE. 0.1 FLAG = 1. 

60 T = T ♦ 1.0 
K = 21 
65 K = K-l 

JS = MAXO IJS.K) 

IF I SKIP) GO TO 70 
IFIL.LE.NMIS+NSPRI 

1WR1TE (6>98) L.NAMEI L) 1 1 01 1 ) t I*1»K> 
IFIL.GT.NMIS+NSPR) WRITEI6i89) L, LABEL! NDUM) , I 01 I ) > 
IF (NLVP(L).EO.O) GO TO 70 
IJ = NLVPIL) 

H = LVARYIL) 

00 69 I 1 = 1. 1 J 
DO 67 1=1.20 
XOUTI I ) = BLANK 


1 = 


67 VOUTI II = BLANK 
X SUB = LVSI HI 
1A = SIL) - TREF + XSUB 
IB = 1A+LV0IH1-1 
00 68 1 = 1 A, IS 

IF! I .LT.1.0R.I.GT.20) GO TO 68 
1C = I-IA+1 

IFIXSCMIlC.HI.LT. .01) GO TO 68 

XOUTI I) = ASTR 

VOUT I I ) = VNAMIHI 

KK = 1VEHIHI 

1LV = KVEHIKK) 

XLVSUMI I . 1 LV) = XLVSUHI I.1LV) ♦ XSCHIIC.H) 
68 CONT 1NUE 

WRITE 16,901) (VOUTI I ), XOUTI I), 1=1, K) 


69 H = H + 1 

70 CONTINUE 

00 75 1=1. JS 

VTCIII = VTC(I)*I1.0 ♦ GRO) **< 2*1 l-l ) ) 

75 TOTAL! I ) = Will ♦ FIXEO(I) 

IFIKSTAT.EQ.O.OR.SKIPI RETURN 
00 80 I = l.JS 

IFIWIIl.LT . .0001 ) GO TO 79 . 

IFIVTCIIl.LT. .01) GO TO 78 
A = .6*W( 1) 

SIG = ALOGI A*A ♦ VTCIII) - ALOGI A* A ) 

TP = SORT I S IG I 

XMOOEII) = A*(EXP( -1.5*S1G) ) 

XMU = ALOGI A ) - ,5*SIG 

XMO = I ALOGIXMODEI I ) I - XMUI/TP 

CALL NDTR I XMO , P2 ,00 ) 

P2 = P2 + .5 

CALL NOTR1IP2.Y2.DO.IE) 

UBII) = EXP I TP*Y2 ♦ XMU) ♦ F 1XEDI I ) ♦ .4*W(I) 
XMOOEII) = XMOOEII) ♦ FIXEO(l) ♦ .4*W(I) 

GO TO 00 

78 XMOOEII ) = TOTALI I ) 

UBI 1 1 = TOTAL! I I 

GO TO 80 

79 XMOOEI 1 1 = 0.0 
URI I ) = 0.0 

80 CONTINUE 
RETURN 

89 FORMAT! 13, IX, 4HDEV ,12,20F6.0) 

98 FORMAT I 13, 1 X , A6 , 20F6. 0) 

901 FORMAT I 1 IX , 201 A4, A2 ) 1 
ENO 


16/52/59 


1,K) 


TOTAL MEMORY REQUIREMENTS 001A46 BYTES 



F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L I ST ,NCAL . MAP 
VARIABLE OPTIONS USED - SIZE*! 126976*24576) 

I EWOOOO NAME M0X02TCIR) 

1EW0*61 FRXP I = 

IEW0*61 IBCUM= 

IEW0*61 NOTR 
1EW0*61 NDTRI 
I EH0*6 1 EXP 
IEWO*61 MAXO 
I EW0*61 ALOG 
I EW0*6 1 SORT 


DEFAULT OPTION(S) USED 


MODULE MAP 


CONTROL SECTION 


NAME 

URIGIN 

LENGTH 

TCOSTS 

00 

1 A46 

SAVRT 

1 A48 

F AO 

VARNCE 

29E8 

AOC 

savei 

34C8 

FC4 

SAVALL 

4490 

3A1C 

SAVER 

7EB0 

FCO 

SAV2 

8E70 

FEO 

SAV3 

96 50 

980 

SCRACH 

A7D0 

6A60 


ENTRY 

NAME 


LOCATION 


NAME LOCATION 


NAME LOCATION 


ENTRY AOURESS 
TOTAL LENGTH 


00 

11230 


****HOX02TC NOW REPLACEO IN DATA SET 


(17) 


ISN 0002 


COMP 


ISN 

ISN 


ISN 

ISN 


0003 

000 * 

0005 

0006 


ISN 0007 
ISN 0008 


ISN 
ISN 
ISN 
ISN 
ISN 
ISN 
I SN 
ISN 
I SN 
ISN 
I SN 
ISM 
ISN 
I SN 

I SN 
1 SN 
ISN 
1 SN 
ISN 
ISN 

ISN 

ISN 

ISN 

ISN 


, DATE 71. 312/18. 25. *9 

OS/360 FORTRAN H 

ILER options - NAME* MA IN. UPT*02, L1NECNT=**, SOURCE . BCD.NOL I ST .NODECK, fcOAD.MOMAP. NOEDIT, I D. 
DETERMINE 8 ' AVERAGE 1 RECURRING COST OF EACH VEHICLE 


0009 
00 LO 

00 il 
0012 

0013 

0014 
0014 
0017 

00 1 b 
0019 

002 1 
0022 
002 3 
00 2 '* 

00 25 
0026 
00 27 
002 8 

0029 

0030 

0031 
00 32 
0033 
0035 


l 


R IN?EGER 8 2 PD VEH,NMULT,NONREC,NVD,IS,MAT,LYR, LETT, LYD, MIN, KOUT, 

KVFH^LABElIlVARy'lVD, I VEHf lvs , LVSF ,NOP,NSSF,NSRF,NSXF,NOSF 
'COMMON/ SAV3/GR0, GUESS, LP*NSOL»MSOL*NP» MOS,NMIS«NSPR«NPERPDI 30 , 

comSXI^al^lckIslo^^exdInvJnumo!^ 

^ COMMON/TEMP /VNM I 2 50^ , ^ FL AG , K I , NEXT , J"^^T 1 ^AVS ( *0 ) , KOUT 1*0), 
l NINTYR ( 40*20) *NTGYTR1 40* 20*2 ), RECUR ( 60,20*2) 
fflMMCJN/SCRACH/ DUMM1 2057 ) *RCOST ( 60) ,DUM( 2291 ) * VYTR( 20* 120 > 
CniINT NUMBER OF EACH VEHICLE USED BY YEAR AND TEST RANGE 
NV2 * 2*NV 
DU 8032 I = 1 »NV2 
DO 8032 J = l.MYRS 
8032 VYTRIJtl • * 0.0 

DO 8033 L = 1»NM 

I F ( YRLM( L ) . LT . . 000 1) GO TO 8033 

I ) - M I N ( L ) 

M = LETT ( L ) 

1=11 

IF(LTR(M).E0.2) I = 1 1 6 NV 
X = NMMLT ( 1 1 ,M I 
J = LYR(L) 

VYTRIJ, I) = VYTRIJ,!) 6 YRLM(L)*X 

: fl033 determine 'average- recurring cost of each vehicle 

00 803* I = 1 i NV 
RCDSTI I) = 0.0 

tveh = 0.0 

11=1 6 NV 

RCOSTU) J = RCOST(I) 0 VYTRIJ, I) *RECURt I , J , 1 ) 6 VYTRIJ, ID* 

1 RECUR ( I , J , 2 I 

TVEH = TVEH C VYTRIJ, I) & VYTRIJ, II) 

8035 CONTINUE 

IFITVEH.LT. .0001) GO TO 803* 

RCOSTII) = RCOSTI I )/TVEH 


D-T9 



l$N 0036 8034 CONTINUE 

I$N 0037 99 RETURN 

ISN 0038 £ N0 

»***«* EMU OF COMPILATION ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L I ST» XREF,MAP»NCAL 

VARIABLE OPTIONS USED - SIZE*! 126976*245761 DEFAULT OPTIONIS) USED 

IEWOOOO NAME M0XO2VCIR) 

CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 

ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME 

00 302 

308 980 

058 3A1C 

4778 4110 

8888 6A60 


NAME 

VEHRC 

5AV3 

SAVALL 

TEMP 

SCRACH 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


EO SAV3 SAV3 . 

E8 SAVALL SAVALL 

EO SCRACH SCRACH 

F8 SCRACH SCRACH 

ENTRY ADDRESS 00 

TOTAL LENGTH F2E8 

»»**M0XII2VC NOW RF PLACED IN DATA SET 


E4 SAVALL SAVALL 

EC TEMP TEMP 

E4 SCRACH SCRACH 



Jj-f'.o 



